Question

Turbo pascal или Pascal abc. Дан двумерный массив NxM. Преобразовать его следующим образом:
Вставить столбец из нулей,
после столбца с минимальным
элементом.

Answer 1

На входе кол-во строк и столбцов. Массив заполняем вручную.

var a:array [,] of integer;

b,k,i,j,N,M:integer;

BEGIN

read(N,M);

b:=maxint;

a:=new integer[N,M+1];

for i:=0 to N-1 do begin

for j:=0 to M-1 do begin

read(a[i,j]);

if a[i,j]<=b then begin

b:=a[i,j];

k:=j;

end;

end;

end;

for i:=N-1 downto 0 do  

for j:=M downto k+2 do

swap(a[i,j],a[i,j-1]);

for i:=0 to N-1 do begin

for j:=0 to M do

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

writeln();

end;

end.

Answer 2

Хорошо, вы есть в вк? . Или где-нибудь в другом сайте, где можно сообщения отправлять. Я не могу тут в лс писать((

Answer 3

Нет, конечно же! Только skype, только hardcodre ))

Answer 4

*hardcore

Answer 5

В ЛС тут вообще сейчас проблема писать - там фильтр режет все, что ни попадя

Answer 6

ну ладно