Задание

Практическая работа. Заполните массив так, как показано на рисунке.

k:=1;

for i :=0 to 2 do {цикл для перебора всех строк}

for j :=0 to 4 do {перебор всех элементов строки по столбцам}

begin

( a [ i , j ])=k; k:=k+1

end

k:=1;

for i :=0 to 2 do {цикл для перебора всех строк}

for j :=0 to 4 do {перебор всех элементов строки по столбцам}

begin

( a [ j, i ])=k; k:=k+1

end

k:=0;

for i :=0 to 2 do {цикл для перебора всех строк}

for j :=0 to 4 do {перебор всех элементов строки по столбцам}

begin

( a [ i , j ])=k; k:=k+1

end