Question

Информатика 6 Задание
Написать код программы с помощью операторов Паскаль.

Answer 1

var x,sum:real;
n,i: integer;
begin
sum:=0;
readln(n);
for i:=1 to n do begin
readln(x);
sum:=sum+x;
end;
writeln('Result: ',sum/n);
end.