40! баллов Найти среднее арифметическое массива
var o:array[1...5] of integer;
i,s,n:integer;
s:real;
begin
s:=0;
n:=5;
for i:=1 to 5 do
begin
readln(o[i]);
s:=s+o[i];
sr:=s/n;
end.
Подправить чтобы было правильно.
Ответы
Ответ дал:
1
var o:array[1..5] of integer;
i,s,n:integer;
sr : real;
begin
s:=0;
n:=5;
for i:=1 to 5 do
begin
readln(o[i]);
s:=s+o[i];
end;
sr:=s/n;
end.
Ятутбосс:
а не готовую ли работу ты нашел?)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад