Увеличить в два раза элементов побочной диагонали.

[Topse]

Дан двумерный массив размером в 5 строк и 5 столбцов,заданных с помощью генератора случайных чисел в интервале от 0 до 10.
Увеличить в два раза элементов побочной диагонали.

Начало:

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);

[Serge_Bliznykov]

полезная информация:
Вложение 90063

Сообщение от Topse

Увеличить в два раза элементов побочной диагонали

for i:=1 to N do
  a[i, N+1-i] := a[i, N+1-i] * 2;

и всё.

[Topse]

Thanks.