процедуры

[Ruslan57]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

Ну и где вы определяете номер строки и столбца где находится max ?

вот именно с этим у меня проблема

[ОДИНОЧЕСТВО В СЕТИ]

Program Max;
type  mas=array[1..50,1..50] Of  Integer;
var   a:mas;
  max,min,i,j,n,im,jm: Integer;
procedure opred(a:mas; n:integer; var i1,j1, max:integer;);
var i,j:integer;
begin
max:=a[1,1];
i1:=1;j1:=1;
for i:=1 to n do
For j:=1 To n Do

begin
if max<a[i,j] then begin
max:=a[i,j];
i1:=i;
j1:=j;

end;
end;

begin
writeln('введите кол-во элементов матрици');
readln(n);
for i:=1 to n do
For j:=1 To n Do
begin
write('x',i,j,'=');
readln(a[i,j]);
end;
opred(a,n,im,jm,max);
writeln('максимальный элемент=', max 'в ',im,' строке и в ',jm,' столбце');

End.

[Ruslan57]

а как удалить строку и столбец эти?

[ОДИНОЧЕСТВО В СЕТИ]

а как удалить строку и столбец эти?

Например сместить строки, идущие после im, вверх, а столбцы, идущие после jm, влево и размер матрицы убавить [(n-1)*(n-1)];

[Ruslan57]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

Например сместить строки, идущие после im, вверх, а столбцы, идущие после jm, влево и размер матрицы убавить [(n-1)*(n-1)];

ок. спасибо