Подсчитать количество чётных чисел в каждой строке массива - Free Pascal (301)

Формулировка задачи:

1) Дан массив С(N,N). Подсчитать: а). Количество чётных чисел в каждой строке массива. б). Количество отрицательных чисел в каждом столбце массива. в). Количество элементов, расположенных на главной диагонали, значения, которых кратны трём г). сумму элементов, значения которых кратных пяти и расположенных на побочной диагонали.

Решение задачи: «Подсчитать количество чётных чисел в каждой строке массива»

Листинг программы

     For i:=1 to n do
       for j:=1 to n do
        begin
          if ((C[i,j]) mod 2)=0 then
            a:=a+1;                  //завести заранее обнулённую
          if j=n then
             begin
               write(a,',  ');
               a:=0;   
             end;
          end;

Объяснение кода листинга программы

В данном коде выполняется подсчёт количества чётных чисел в каждой строке массива.

Создаются две вложенные переменные цикла i и j, которые будут перебирать все элементы массива.
Задаётся условие, что если элемент массива C[i,j] является чётным числом, то к переменной a прибавляется единица.
Если значение переменной j равно n, то выводится значение переменной a, а затем она обнуляется.
Вложенные циклы завершаются, когда значение переменной j становится равным n.