ЧТО ОЗНАЧАЕТ ЭТА ПРОГРАММА НА ПАСКАЛЕ
const n=10;
var A: array [1..n] of integer;
i: integer; s: real;
begin
for I:=1 to n do read (A[i]);
s:=0;
for I:=1 to N do
if A[I] mod 2=0 then s:=s+1;
s:=s*100/n;
writeln(s)
end.

IgrochishkaRossiy    1   23.04.2020 14:48    2