дан массив состоящий из n (> 1) вещественных чисел.найти среднее арифметическое значение чисел массива
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
пишет в 12 строке ,,нельзя преобразовывать тип real к integer
Ответ дал:
0
в 9 ,,параметр цикла for в pascalabc.net должен описываться в заноловке цикла, как это все исправить?
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад