uses crt;
var
i,max,count:integer;
sum,ar:real;
mas: array [1..100] of integer;
begin
randomize;
for i:=1 to 100 do begin
mas[i]:=random(-102,102);
write(mas[i], ' ');
end;
writeln(' ');
writeln('Сумма ');
sum:=0;
for i:=1 to 100 do begin
sum:=sum+mas[i];
end;
writeln(sum);
max:=0;
for i:=1 to 100 do
begin
if max<mas[i] then
max:=mas[i];
end;
ar:=0;
writeln('max = ', max);
ar:=sum/100;
writeln('Среднее арефметическое ',ar);
count:=0;
for i:=1 to 100 do
if mas[i] mod 2 = 0 then
count:=count+1;
writeln('Количесвто четных чисел ',count);
for i:=1 to 100 do begin
if mas[i]>0 then textcolor(2)
else
textcolor(7);
write(mas[i],' ');
end;
end.