Дан двумерный массив размером в 5 строк и 5 столбцов,заданных с помощью генератора случайных чисел в интервале от 0 до 10.
Найти сумму нечетных элементов массива четных столбцов.
Данная программа находит только общую сумму,а мне нужно сумму нечетных элементов массива четных столбцов.
Const N=5; M=5;
Var a :array [1..N, 1..M] Of integer;
i,j,s,sum : integer;
Begin
sum:=0;
randomize;
For i:=1 to N do
For j:=1 to M do
A[i,j]:= random(11);
For i:=1 to N do
begin
For j:=1 to M do
Write(a[i,j]:3);
Writeln;
end;
begin
if a[i,j] mod 2<>0 then sum:= sum+a[i,j];
end;
For i:=1 to N do
For j:=1 to M do
s:=s+a[i,j];
Writeln;
Write('Сумма=',s);
End.
2. Увеличить в два раза элементов побочной диагонали.
Начало:
Const N=5; M=5;
Var A:array [1..N, 1..M] Of integer;
i,j,S : integer;
Begin
randomize;
For i:=1 to N do
For j:=1 to M do
a[i,j]:= random(11);
3.Дан двумерный массив размером в 5 строк и 5 столбцов,заданных с помощью генератора случайных чисел в интервале от 0 до 10.
Поменять местами максимальный и последний элемент массива.
Буду очень благодарен если сможете помочь хоть какую-то сделать =)