вывести на экран двумерный массив с помощью датчика случайных чисел. Количество строк-7, столбцов 10. поменять местами строки с №2 и №5, удалить строку №6

uses crt;

var

a:array[1 ... 7,1 ... 10] of integer;

b, i, j:integer;

begin

clrscr;

randomize () ;

//заполнение массива случайными числами

for i:=1 to 7 do

for j:=1 to 10 do

begin

a[i, j]:=random (10) ;

end;

//вывод массива

for i:=1 to 7 do

begin

for j:=1 to 10 do

write (a[i, j]:3,' ') ;

writeln () ;

writeln () ;

end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j:=1 to 10 do

begin

a[6, j]:=a[7, j];

a[7, j]:=0;

b:=a[5, j];

a[5, j]:=a[2, j];

a[2, j]:=b;

end;

writeln ('Отредактированный массив') ;

//выводим отредактированный массив

for i:=1 to 6 do

begin

for j:=1 to 10 do

write (a[i, j]:3,' ') ;

writeln () ;

writeln () ;

end;

readln () ;

end.