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.