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

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

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

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

textual
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.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ