program c1;
var a: array[-10..10] of integer;
i,j,k,s: integer
begin
for i=1 to 50 do begin
a[i]: =random(50)-20;
write(a[i]'');
end;
fur i: =1 to 50 do begin;
if a[i]mod=4 then k: =k+1;
if a[i]> 0 then s: =s+a(i);
end;
writeln(k=,k);
writeln('s=',s);
end.

olyakurets    2   24.12.2019 13:14    0