Найти количество четных элементов матрицы - Pascal ABC (12818)
Формулировка задачи:
2.Найти количество четных элементов матрицы. Закрасить указанные элементы.
Решение задачи: «Найти количество четных элементов матрицы»
textual
Листинг программы
uses crt;
const n=10;
var a:array[1..n,1..n] of byte;
i,j,k:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10+random(9);
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j] mod 2=0 then
begin
k:=k+1;
textbackground(12);
end
else textbackground(15);
write(a[i,j]:3);
end;
writeln;
end;
textbackground(15);
write('Количество четных=',k);
end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Код начинается с объявления переменных: n (количество строк в матрице), a (массив для хранения данных), i, j, k (переменные для прохода по матрице). Затем идет цикл, который заполняет матрицу случайными числами от 10 до 19. Далее идет еще один цикл, который проходит по каждой ячейке матрицы. Если значение в ячейке четное (остаток от деления на 2 равен нулю), то увеличивается счетчик k. В конце выводится сообщение с количеством четных элементов.