Вывести на экран двумерный массив с помощью датчика случайных чисел. Количество строк-7, столбцов 10. поменять местами строки с №2 и №5, удалить строку №6
Вывести на экран двумерный массив с помощью датчика случайных чисел. Количество строк-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.
Не нашли ответ?
Похожие вопросы