Turbo pascal или Pascal abc. Дан двумерный массив NxM. Преобразовать его следующим образом:Вставить столбец из нулей,после столбца с минимальнымэлементом.
На входе кол-во строк и столбцов. Массив заполняем вручную.
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:=a[i,j];
k:=j;
end;
for i:=N-1 downto 0 do
for j:=M downto k+2 do
swap(a[i,j],a[i,j-1]);
for j:=0 to M do
write(a[i,j],' ');
writeln();
end.
Я вас часто вижу на этом сайте. Вы случайно не разработчик или бывший разработчик какой-нибудь компании?
Ну.... я тут около 5 лет. Был я разработчиком, и преподавал, и ЭВМ чинил... все было. Программы пишу больше 45 лет. Было время научиться)) Начинал еще тогда, когда не было ни С, ни Паскаля ))
Ничего себе
А над какими более серьёзными программами занимались, если не секрет?
В свое время над достаточно большими и очень серьезными. Но тут не место об этом писать.
Хорошо, вы есть в вк? . Или где-нибудь в другом сайте, где можно сообщения отправлять. Я не могу тут в лс писать((
Нет, конечно же! Только skype, только hardcodre ))
*hardcore
В ЛС тут вообще сейчас проблема писать - там фильтр режет все, что ни попадя
ну ладно