*.bmp
++++++++++++++++++++++++++++++++++++++++++
Uses crt;
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln('Кол-во четных = ',s);
writeln('Кол-во нечетных = ',k);
end.
По какому предмету и 1 сор или 2
Var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i],' ');
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln('Сумма: ',n);
<span>End.</span>