06.04.2010, 00:07
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Писал на Делфи, но должно работать и на паскале:
PHP код:
program Project2;
var
i,j,R:integer;
N,K:integer;
Massv:array[1..255,0..255] of integer;
Massv_t:array[1..255,0..255] of integer;
Massv_o:array[1..255] of integer;
begin
Write('Размер массива: ');
ReadLn(N);
{Заполняем рандом 2 массива}
for j:=1 to N do // Столбец
for i:=1 to N do // строка
begin
r:=Random(100);
Massv[j,i]:=r;
Massv_t[j,i]:=r;
end;
{Какую строку будем менять}
Write('Строка: ');
ReadLn(K);
{Замена + Сохранение в одномерном массиве}
for i:=1 to N do // строка
begin
Massv_o[i]:=Massv[K,i]; // сохраняем в одномерном
Massv[K,i]:=Massv[N,i]; // заменяем K строку последней
Massv[N,i]:=Massv_o[i]; // последнюю заменяем из одномерного массива
end;
{Вывод}
WriteLn('-Массив--------------');
for j:=1 to N do // Столбец
begin
for i:=1 to N do // строка
begin
Write(Massv_t[j,i],' ');
end;
WriteLn; // новая строка
end;
WriteLn('-Измененый Массив--------------------');
for j:=1 to N do // Столбец
begin
for i:=1 to N do // строка
begin
Write(Massv[j,i],' ');
end;
WriteLn;
end;
WriteLn('-Строка-----------------------');
for i:=1 to N do // строка
begin
Write(Massv_o[i],' ');
end;
WriteLn('Нажмите Enter для завершения...');
ReadLn; // Ожидаем нажатие Enter для выдода
end.
P.s. надеюсь правильно понял задачу.
Последний раз редактировалось JnK; 06.04.2010 в 00:15..
Причина: Добавил комментарии
|
|
|