Практическая часть Задание1 Решение контрольных задач:
1)в массиве хранятся оценки студентов по информатике.Найти
-среднюю оценку
-максимальную и минимальную оценку
-процент двоек, троек, четверок, пятерок
-колличество оцено,превышающих среднюю
2)написать программу в которой находятся макс и мин значения при условии что координаты элементов должны быть нечётными
3)найти максимальный элемент, после вставьте его порядковый номер с учетом того что числа должны сдвинутся в право.
Задание 2
Дан массив размера a[I,j] найти сумму строк в которых присутствует только одно отрицательное значение.
Полученные суммы отсортировать по возростанию
Задача 1
1)Блок схема
program man;
uses crt;
var i,b,max,min,n:integer;
a1,b1,c,d,e,s,sr:real;
a:array[1..100] of integer;
begin
clrscr;
read(n);s:=0;
for i:=1 to n do begin read(a[i]);{ s:=s+a[i];} end;
writeln(s:3:0); min:=a[1]; max:=a[1];
for i:=1 to n do s:=s+a[i];
for i:=2 to n do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end
writeln('max:=',max,' min:=',min);
a1:=0;b1:=0;c:=0;d:=0;e:=0;
for i:=1 to n do begin
if a[i]=2 then a1:=a1+1;
if a[i]=3 then b1:=b1+1;
if a[i]=4 then c:=c+1;
if a[i]=5 then d:=d+1;
if a[i]=sr then e:=e+1;
end;
write(a1:3:0,' ',b1:3:0,' ',c:3:0,' ',d:3:0);writeln;
sr:=s/n;
s:=100/n;
a1:=a1*s;
b1:=b1*s;
c:=c*s;
d:=d*s;
writeln(sr:3:0);
writeln(s:3:0);
writeln('koll neud:=',a1:3:0);
writeln('koll udov:=',b1:3:0);
writeln('koll xor:=',c:3:0);
writeln('koll otl:=',d:3:0);
readkey; end.
Реализация программы
Блок схема
Листинг программы
program sd;
uses crt;
var i,max,min,n,j,k,s:integer;
a,b1:array[1..100] of integer;
begin
clrscr;
read(n);s:=0; j:=0;
for i:=1 to n do begin read(a[i]); end; writeln;
for i:=1 to n do
if (i mod 2)>0 then begin j:=j+1;
b1[j]:=a[i] ;
k:=j;
end;
for j:=1 to k do
write(b1[j]); max:=b1[1];min:=b1[1];
for j:=2 to k do begin
if min>b1[j] then min:=b1[j];
if max<b1[j] then max:=b1[j];
end; writeln;
writeln('minimalnii element:=', min);
writeln('maximalnii element:=',max);
readkey;
end.
Реализация программы
)
Блок схема
Листинг программы
program vdvadsshesti;
uses crt;
var i,max,min,n,j,k,b,s:integer;
a,b1:array[1..100] of integer;
label xx;
begin
clrscr;
read(n); j:=0;
for i:=1 to n do begin read(a[i]); end; writeln;
writeln; max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i]; writeln; write('max:=',max);
writeln;
for i:=1 to n do if a[i]=max then k:=i; writeln('poriadkovii nomer',k);
for j:=1 to n+1 do begin b1[j+1]:=a[j]; end;
a[1]:=k;
writeln(a[1]);
for j:=1 to n+1 do
if b1[j]<>max then b1[j]:=b1[j+1] else begin b1[j+1]:=a[1]; s:=j+1; goto xx; end;
xx: b1[s-1]:=k
; for j:=1 to n+1 do write(' ',b1[j]);
readkey;
end.
Реализация программы