Нужно разработать программу для определения требуемых величин в элементах двумерного массива, расположенных ниже главной и побочной диагонали. имя массива 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]< 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;

Описание переменных:

N - количество элементов в массиве;

arr - одномерный массив, содержащий N элементов;

i - переменная-счетчик;

count - счетчик для положительных элементов массива.

Алгоритм решения задачи:

Это простая задача. Необходимо перебрать все элементы массива в цикле (обычно используется for) и сравнить их с нулем (с условного оператора if, вложенного в цикл). Если текущий элемент массива больше нуля, то следует увеличить на единицу счетчик положительных элементов, которому до цикла присваивается значение 0 (т. к. еще ни одного положительного элемента массива не найдено). После завершения цикла значением данного счетчика будет найденное количество положительных элементов массива.

Program happynewyear; uses graphabc; begin setwindowsize(600,400);   line(250,100, 300,50); lineto(350,100);   lineto(250,100); floodfill(300,70, clgreen); line(220,200, 300,100); lineto(380,200); lineto(220,200); floodfill(300,150, clgreen); line(200,300, 300,200);   lineto(400,300);   lineto(200,300); floodfill(300,250, clgreen); rectangle(290, 300,310, 320); floodfill(300,305, clbrown);   line(0, 300, 100, 350); lineto(200, 320); lineto(400, 320); lineto(600, 370); lineto(600,400); lineto(0,400); lineto(0,300); end.