ANTICHAT — форум по информационной безопасности, OSINT и технологиям

const n=6;
var a:array[1..n] of real;
   i:integer;s,min,max:real;
begin
   {ввод элементов массива}  
for i:=1 to n do begin
  write('   a[',i,']='); readln(a[i]); end;
        writeln;

  min:=a[1];max:=min;s:=a[1];

 for i:=2 to n do begin
s:=s+a[i];
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];end;
writeln ('min= ',min,' max= ',max,' crednaja= ',s/n);
end.