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

+ 0 -

Avh

29 дек. 2014 г., 7:57:25 (9 лет назад)

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;