Для массива из 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.