Program n1;
const n=30;
var a: array[1..n] of integer;
i,k,sum: integer;
sr: real;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i],' ');
sum:=sum+a[i];
end;
sr:=sum/n;
writeln;
for i:=1 to n do if a[i]>sr then k:=k+1;
writeln(k);
end.
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Лінивий так-телевізор,ні-ДЗ
Ответ в файле:vvvvvvvvvvv