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

[Boys]

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

[Stilet]

Массив получается должен быть динамическим?
попытки и наработки имеешь?

[Boys]

только процедуры init и print

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)-5;
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;

[Stilet]

Как полностью выглядит твой код?

[Boys]

Вот начало

program Ex1;
const n=5; m=6;
type dmyarray=array[1..n,1..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)-5;
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;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Boys, Вы задали СТАТИЧЕСКИЙ массив. изменить его размеры в программе НЕВОЗМОЖНО.

чтобы это стало возможным, нужно выбрать один вариант из трёх
вариант 1. сделать статический массив с удвоенным числом столбцов. Хранить переменную, где отмечать, сколько столбцов занято. если нужно вставить новый столбец - увеличивать данную переменную

вариант 2. использовать динамические массивы, если они есть в вашей версии Паскаля.

вариант 3. Использовать указатели, выделять память под нужное число строк/столбцов. Это самый сложный и не надёжный (багопасный) вариант.

выбирайте, какой Вам вариант по душе.

[Stilet]

Хм... Так, поскольку на вопрос о динамическом массиве ты не ответил, пишу как есть:

program Ex1;
const n=5; m=6;
type dmyarray=array[1..n,1..m+1] of integer;
var a : dmyarray;
...
procedure insert();
var i,j,imax,jmax:integer;
begin
 imax:=1; jmax:=1;
 for i:=1 to n do for j:=1 to m do if a[i,j]<a[imax,jmax] then begin imax:=i;jmax:=j;end;
 for j:=m downto jmax do for i:=1 to n do a[i,j+1]:=a[i,j];
 for i:=1 to n do a[i,jmax]:=0;
end;
...
Тут твои процедуры

Годится?

[Serge_Bliznykov]

type dmyarray=array[1..n,1..m+1] of integer;

на мой взгляд - нет, не годится!

в условии:

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

подразумевается, что таких столбцов может быть и несколько.
думаю. что после каждого столбца, содержащего максимальное значение, нужно вставить новый пустой столбец.

[Stilet]

Ну пусть будет 1..m*m чтоб мало не казалось

[Boys]

Не правильно работает

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;
procedure insert(var x:dmyarray);
var i,j,imax,jmax:integer;
begin
 imax:=1; jmax:=1;
 for i:=1 to n do for j:=1 to m do if a[i,j]<a[imax,jmax] then begin imax:=i;jmax:=j;end;
 for j:=m downto jmax do for i:=1 to n do a[i,j+1]:=a[i,j];
 for i:=1 to n do a[i,jmax]:=0;
end;
begin
randomize;
init(a);
print(a);
insert(a);
print(a)
end.