Нужно разработать программу для определения требуемых величин в элементах двумерного массива, расположенных ниже главной и побочной диагонали. Имя массива J Размер 32 Программа должна реализовывать следующие функции: 1.Сумма вс...
Нужно разработать программу для определения требуемых величин в элементах двумерного массива, расположенных ниже главной и побочной диагонали.
Имя массива 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]
Не нашли ответ?
Похожие вопросы