Дан двумерный массив А, заполненный случайным образом. Вставить после столбцов, содержащих максимальный элемен

@Voley · Регистрация: 30.01.2015

Студворк — интернет-сервис помощи студентам

Дан двумерный массив А, заполненный случайным образом. Вставить после столбцов, содержащих максимальный элемент массива, столбец из нулей. Максимальных элементов может быть несколько.
Начало сделал, помогите сделать процедуру insert.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Ex1;
const n=5; m=6;
type dmyarray=array[1..n,1..m*m] of integer;
var a : dmyarray;
procedure init(var x:dmyarray);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
x[i,j]:=random(50);
end;
procedure print(x:dmyarray);
var i,j:integer;
begin for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:5);
writeln;
end;
writeln
end;

@vint-81 · 02.11.2015, 17:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure insert1(var x:dmyarray;var m1:integer;j1:integer);
 {m1:количество столбцов; j1:столбец, после которого вставлять столбец из нулей}
 var i,j:integer;
  begin
   inc(m1);
   for i:=1 to n do
    begin
     for j:=m1 downto j1+2 do x[i,j]:=x[i,j-1];
     a[i,j1+1]:=0
    end
  end;

зы:у Вас процедура print всегда будет распечатывать m столбцов...

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .	Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .	Последние результаты исследования от команды MCM (октябрь 2025 г.) Programma_Boinc 29.10.2025 Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .

Опции темы