Question

Выручайте! Составить программу на pascal abc.

Answer 1

Program asd;

Uses crt;

var a:array [1..100] of integer;

    i:integer;

    s:real;

begin

readln (n);

for i:=1 to n do

begin

readln (a[i]);

s:=s+a[i];

end;

s:=s/n;

writeln (s);

end.