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

uses crt;vara:array[1..7,1..10] of integer;b,i,j:integer;beginclrscr;randomize();

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

for i:=1 to 7 dofor j:=1 to 10 dobegina[i,j]:=random(10);end;

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

for i:=1 to 7 dobeginfor j:=1 to 10 dowrite(a[i,j]:3,' ');writeln();writeln();end;

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

for j:=1 to 10 dobegina[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 dobeginfor j:=1 to 10 dowrite(a[i,j]:3,' ');writeln();writeln();end;readln();end.