01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN_MASSI

PROGRAM masiw;
const
N=1000;
max_value=9299;
var
m:array[1..N] of real;
i:integer;
max,min:real;
s:real;
begin
for i:=1 to N do
m[i]:=random(max_value);
s:=0;
max:=m[1];
min:=m[1];
for i:=1 to N do
begin
s:=s+m[i];
if m[i]<min then
min:=m[i]
else if m[i]>max then
max:=m[i];
end;
for i:=1 to 10 do
write(m[i]:5);
writeln;
writeln('¬Ё­= ',min:5:3,' ¬ Єб= ',max:5:3,' б।­ҐҐ= ',s/n:8:3);
readln;

end.