var a : array [1..3,1..4] of integer;
i,j,k:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
a[i,j]:=random(90)+10;
write(a[i,j]:4);
if a[i,j] mod 2=0 then k:=k+1
end;
writeln;
writeln('Количество четных элементов массива: ',k);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a : array [1..3,1..4] of integer;
i,j,k:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4);
if a[i,j] mod 2=0 then k:=k+1
end;
writeln;
end;
writeln('Количество четных элементов массива: ',k);
end.