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.
Ятутбосс:
а не готовую ли работу ты нашел?)
ага, делать мне больше нечего)
если что-то не ясно - могу объяснить ;)
sr среднее?
Да
ладно поверю тебе держи все по максиму баллы
Если нужно чтоб программа еще и выводила среднее арифметическое, то в конце надо добавить writeln(sr);
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад