Необходимо составить программу с двумерным массивом. Для заполнения данного массива нужно использовать генератор случайных чисел.

I - отвечает за номер строки.

J - отвечает за номер столбца.

Заполненные массивы должны выглядеть так:

при const n=3

1 2 1

2 3 2

1 2 1

при const n=5

1 2 3 2 1

2 1 2 1 2

3 2 1 2 3

2 1 2 1 2

1 2 3 2 1

Желательно, составить блок-схему.

В программе две константы: n и m. n отвечает за размер массива, m за максимальное значение случайного числа от 0 до на 1 меньше чем само m.

Program Zadacha;

Const n = 5; m = 5;

Var a: Array [1 ... n, 1 ... n] of Integer;

i, j: Integer;

Begin

Randomize;

For i : = 1 To n Do

For j : = 1 To n Do

a[i, j] : = Random (m) ;

WriteLn ('Результат:') ;

For i : = 1 To n Do

Begin

For j : = 1 To n Do

Write (a[i, j], ' ') ;

WriteLn;

End;

ReadLn;

End.