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

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;<br>    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];<br>    Writeln("сумма отрицательных нечетных чисел = ",S);
End;