Нужно разработать программу для определения требуемых величин в элементах двумерного массива, расположенных ниже главной и побочной диагонали.

Имя массива J

Размер 32

Программа должна реализовывать следующие функции:

1. Сумма всех чисел

2. минимальное чётное число

3. кол-во отрицательных нечётных чисел

4. сумма отрицательных нечетных чисел

Var

J: Array[1 ... 32,1 ... 32] Of Integer;

i, j, S: Integer;

Begin

//заводим массив

For i:=1 to 32 do

For j:=1 to 32 do

begin

Writeln ("Введите J[", i,",", j,"]") ;

Readln (J[i, j]) ;

End;

//Сумма всех чисел

S:=0;

For i:=1 to 32 do

For j:=1 to 32 do

S:=S + J[i, j];

Writeln ("Сумма всех чисел = ", S) ;

S = 0;

//Минимальное четное число

For i:=1 to 32 do

For j:=1 to 32 do

If (J[i, j] mod 2 = 0) And (J[i, j]
Writeln ("Минимальное четное число = ", S) ;

S:=0;

//кол-во отрицательных нечетных чисел

For i:=1 to 32 do

For j:=1 to 32 do

If (J[i, j] mod 2 0) And (J[i, j] <0) Then S: = S+1;

Writeln ("кол-во отрицательных нечетных чисел = ", S) ;

S:=0;

//сумма отрицательных нечетных чисел

For i:=1 to 32 do

For j:=1 to 32 do

If (J[i, j] mod 2 0) And (J[i, j] <0) Then S: = S+J[i, j];

Writeln ("сумма отрицательных нечетных чисел = ", S) ;

End;