Дан массив состоящий из n ( больше 1) вещественных чисел.найти среднее арифметическое значение чисел массива
Дан массив состоящий из n (> 1) вещественных чисел.найти среднее арифметическое значение чисел массива
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i,sum: integer;
sr: real;
a: array [1..100] of real;
begin
writeln ('vvel n');
read (n);
writeln (n);
for i:=1 to n do
begin
read (a[i]);
sum:=sum+a[i];
end;
sr:=sum/n;
writeln ('srednee=',sr);
end.
Не нашли ответ?
Похожие вопросы