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

Имя массива J

Размер 32

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

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

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

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

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

Да,Огромнейшее спасибо :)

Если будет ругаться на синтаксис J и j - как уже используется, можно все j заменить на k

Да,ругается,обяз заменять?

агась

тоесть все маленькие j заменить на k

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]<S) Then 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] <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;