1.
Дан двумерный массив размером в 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.
Поменять местами максимальный и последний элемент массива.
Буду очень благодарен если сможете помочь хоть какую-то сделать =)

FOR i:=2 TO 5 STEP 2 DO
  FOR j:=1 TO 5 DO
    IF NOT Odd(A[i,j]) THEN Sum:=Sum+A[i,j];