Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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