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

Question

26 просмотров

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

Имя массива J

Размер 32

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

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

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

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

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

Информатика Alex968_zn (12 баллов) 19 Март, 18 | 26 просмотров

Дан 1 ответ

Dеmentor_zn · Answer 1 · 2018-03-18T21:03:05+0000

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;