4. Задан массив А, состоящий из n чисел. Найти среднее арифметическое его
элементов. Элементы вводятся с клавиатуры.

Program srednee;

Var a: array[1..100] of real;

i, n: integer;

s,sred: real;

Begin

Write (‘n=’); Readln (n);

s:=0;

For i:=1 to n do

begin

write (‘введите число’); readln (a[i]);

s:=s+a[i];

end;

sred:=s/n;

writeln(‘среднее арифметическое элементов: ‘,s);

End

axinoffdaniil    3   22.05.2020 09:27    39