program CountEvenElements; var arr: array [1..3, 1..4] of integer; i, j, count: integer; begin // Заполняем массив случайными числами и выводим его на экран randomize; count := 0; for i := 1 to 3 do begin for j := 1 to 4 do begin arr[i, j] := random(100); writeln(arr[i, j]); if arr[i, j] mod 2 = 0 then count := count + 1; end; end; writeln('Количество чётных элементов массива: ', count); end.
Программа заполняет массив 3x4 случайными числами и выводит его на экран. Затем программа подсчитывает количество чётных элементов в массиве и выводит это число на экран.
Программа на Turbo Pascal:
program CountEvenElements;var
arr: array [1..3, 1..4] of integer;
i, j, count: integer;
begin
// Заполняем массив случайными числами и выводим его на экран
randomize;
count := 0;
for i := 1 to 3 do
begin
for j := 1 to 4 do
begin
arr[i, j] := random(100);
writeln(arr[i, j]);
if arr[i, j] mod 2 = 0 then
count := count + 1;
end;
end;
writeln('Количество чётных элементов массива: ', count);
end.
Программа заполняет массив 3x4 случайными числами и выводит его на экран. Затем программа подсчитывает количество чётных элементов в массиве и выводит это число на экран.