PHP код:
program kr70;
uses crt;
const n=60;
var a:array[1..n] of real;
s:real;
i:integer;
begin
clrscr;
Writeln('Введите массив a:');
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n;
writeln('srednee arifm=',s:8:2);
readkey
end.
убери е-мейл в профиль, указывать его таким образом запрещено.
