Для массива из 10 целых чисел. Найти сумму всех элементов, среднее арифметическое, наибольшее и наименьшее значение.

Program prog;

uses crt;

var a:array[1 ... 10] of integer;

s, i, max, min: integer;

sr: real;

begin

clrscr;

min:=a[1];

for i:=1 to 10 do begin

write ('a[', i,'] = ') ;

readln (a[i]) ;

end;

for i:=1 to 10 do begin

s:=s+a[i];

if a[i]>max then max : = a[i];

if a[i]
end;

sr:=s/10;

writeln;

writeln ('Сумма всех элементов массива s = ', s) ;

writeln ('Среднее арифметическое sr = ', sr:0:1) ;

writeln ('Max = ', Max) ;

writeln ('Min = ', Min) ;

end.