Дан массив 5х5 из вещественных чисел. Вычислить количество элементов с номерами строк кратных 3 - Turbo Pascal

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

Пожалуйста, до завтрашнего утра нужно сделанные вот эти задачи:. Задача 2: Дан массив 5х5 из вещественных чисел. Вычислить количество элементов с номерами строк кратных 3. 2 варианта программы с подпрограммами и без. Задача 3: Дан массив 4х4 из целых чисел. Вычислить произведение эл-тов кратных 2 но не кратных 4 с чётными номерами строк. Написать два возможных решения с подпрограммами и без.

Решение задачи: «Дан массив 5х5 из вещественных чисел. Вычислить количество элементов с номерами строк кратных 3»

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

program ps2;
Var
i,j,s:integer;
A:array[1..4,1..4] of integer;
Begin
For i:=1 to 4 do
 Begin
  For j:=1 to 4 do
   Begin
   A[i,j]:=random(5);
   write(A[i,j]:3);
   End;
   writeln;
 End;
    For i:=1 to 4 do
      For j:=1 to 4 do
       If (A[i,j] mod 2 = 0) and (A[i,j] mod 4 <> 0) and ((i mod 2) = 0) then 
        s:=s+A[i,j];
  writeln('Сумма чисел равно: ',s);
  readln
  end.

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

В данном коде используется язык программирования Turbo Pascal. Он представляет собой набор инструкций для решения задач, которые могут быть выполнены на компьютере. В начале кода объявляются переменные i, j и s типа integer, которые будут использоваться для выполнения различных операций. Затем объявляется массив A размером 5x5, который будет заполняться случайными числами от 0 до 4. Далее происходит цикл, в котором происходит заполнение массива A случайными числами. Внутри этого цикла также выполняется проверка на условие: если число A[i,j] кратно 2 и не кратно 4, и номер строки i кратен 3, то значение переменной s увеличивается на текущее значение A[i,j]. После завершения внутреннего цикла выполняется вывод на экран суммы всех чисел, удовлетворяющих условию. В конце программы происходит чтение символа новой строки для завершения ввода данных.