Что делает программа?
Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do
begin
readln (x [i]) ;
if i >0 then s:=s+x[i] ;
end;
s:=s/100
writeln (s) ;
end.

irinavardanyan    2   19.05.2020 12:53    2