Двумерный массив. Найти количество четных элементов пятого и шестого столбца - Pascal
Формулировка задачи:
Решение задачи: «Двумерный массив. Найти количество четных элементов пятого и шестого столбца»
const N = 5;
const M = 10;
type item_t = integer;
type line_t = array[1..M] of item_t;
type tabl_t = array[1..N] of line_t;
procedure printLine( const l: line_t );
var
i: integer;
begin
for i:= 1 to M do
write(l[i] :5);
writeln;
end;
procedure printTabl( const t: tabl_t );
var
i: integer;
begin
for i:= 1 to N do
printLine(t[i]);
end;
procedure init_2d( var a: tabl_t );
var
x,y: integer;
begin
for y:=1 to N do
for x:=1 to M do
a[y][x] := random(-100 , 100);
end;
var
s: tabl_t;
c,y: integer;
begin
init_2d(s);
printTabl(s);
Writeln('-------------------------------');
c := 0;
for y:=1 to N do if s[y][5] mod 2 = 0 then c := c + s[y][5];
for y:=1 to N do if s[y][6] mod 2 = 0 then c := c + s[y][6];
writeln( c );
end.
Объяснение кода листинга программы
В данном коде объявлены три переменные типа item_t: a, b и c. Переменная a представляет собой двумерный массив, который инициализируется в процедуре init_2d. Переменная b используется в процедуре printTabl для вывода содержимого массива t. Переменная c используется для подсчета количества четных элементов в пятом и шестом столбцах массива a.
В процедуре init_2d используется цикл for, который выполняется N раз, где N - это размерность второго измерения массива a. Внутри цикла инициализируются все элементы массива a случайными числами в диапазоне от -100 до 100.
В процедуре printTabl также используется цикл for, который выполняется N раз. Внутри цикла выводятся все элементы массива t с помощью процедуры printLine.
В основной части кода инициализируется массив a с помощью процедуры init_2d. Затем выводится таблица с помощью процедуры printTabl. После этого вычисляется количество четных элементов в пятом и шестом столбцах массива a. Для этого используется два вложенных цикла for, которые выполняются N раз. Внутри циклов проверяется, является ли текущий элемент четным числом, и если да, то увеличивается счетчик c. В конце выводится значение переменной c, которое и является количеством четных элементов.