Program p1; var i,j,s:integer; r: double; a:array [1..9999] of integer; begin writeln('Запишите кол-во оценок'); read(j); for i:=1 to j do begin writeln('Введите оценку #', i); read (a[i]); end; for i:=1 to j do begin s:=a[i]+s; end; writeln('сумма оценок = ', s); r:=s/j; writeln('Средний бал = ',r); end.
var
i,j,s:integer;
r: double;
a:array [1..9999] of integer;
begin
writeln('Запишите кол-во оценок');
read(j);
for i:=1 to j do
begin
writeln('Введите оценку #', i);
read (a[i]);
end;
for i:=1 to j do
begin
s:=a[i]+s;
end;
writeln('сумма оценок = ', s);
r:=s/j;
writeln('Средний бал = ',r);
end.