Question

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.

Подправить чтобы было правильно.

Answer 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.