Вывести на экран двумерный массив с помощью датчика случайных чисел. Количество…

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.