целочисельная матрица

[vitik]

помогите с пргой
Дана прямоугольная целочисельная матрица.
1.Найти минимальный елемент среди максимальных елементов строк. Найти номер строки и столбца такого елемента
2.Удалить столбец в котором находится максимальный елемент матрицы
я попробувал сделать прогу но что означает удалить столбец и как ето сделать непонимаю

PROGRAM MATRIX;
var n, m, i, j,row,mincol,maxcol: integer;
var maxmax, minmax: real;
var a: array [ 1..100, 1..100 ] of real;
var max: array [ 1..100 ] of real;
var col: array [ 1..100 ] of integer;
 
BEGIN
writeln('введите  n   ')
read(n);
writeln('введите  m  ')
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100);
for i:=1 to n do begin
max[i]:=a[1,1];
for j:=1 to m do begin
if a[i,j]>max[i] then begin max[i]:=a[i,j]; col[i]:=j; end;
end;
end;
minmax:=max[1];
maxmax:=max[1];
for i:=1 to n do begin
if minmax<max[i] then begin minmax:=max[i]; row:=i; mincol:=col[i]; end;
if maxmax>max[i] then begin maxmax:=max[i]; maxcol:=col[i]; end;
end;
writeln('минимальный елемент среди максимальных елементов строк',minmax);
writeln(' находится в',row,'строке ',mincol,' столбце');
end.

[GetMax]

Найти минимальный елемент среди максимальных елементов строк. Найти номер строки и столбца такого елемента

Во первых: код надо оформлять читабельно;
Во вторых: Зачем столько раз объявлять раздел переменых - Var. Достаточно указать его один раз и объявить в нем все переменные;
В третьих: код будет выглядеть так

var
   n, m, i, j: integer;
   maxmax, minmax: Integer;
   a: array [ 1..100, 1..100 ] of Integer;
   max: array [ 1..100 ] of Integer;
BEGIN
  Randomize;
  writeln('Input n ');
  readln(n);
  writeln('Input m ');
  readln(m);
  for i:=1 to n do
  Begin
    for j:=1 to m do
    Begin
      a[i,j]:=random(100);
      Write(A[i,j]:3)
    End;
    Writeln
  End;
  Writeln;
  for i:=1 to n do
  begin
    MaxMax:=Low(Integer);
    For j:=1 to M do
    Begin
      If A[i,j] > MaxMax then MaxMax:=A[i,j];
    End;
    Max[i]:=MaxMax
  End;
  Writeln('Vektor iz Max ');
  For i:=1 to N do Write(Max[i]:3);
  Writeln;
  Writeln;
  MinMax:=High(Integer);
  For i:=1 to N do
  If Max[i] < MinMax then MinMax:=Max[i];
  For i:=1 to N do
  Begin
    For j:=1 to M do
    If A[i,j] = MinMax then Writeln(i,' stroka ',j, ' stolbec ')
  End;
  Readln
End.

[vitik]

а что такое Low(Integer); иMinMax:=High(Integer);

[GetMax]

Low(Integer) - Функция, возвращающая минимальное значение диапазона Integer
High(Integer) - Функция, возвращающая максимальное значение диапазона Integer

[Shift_sk]

можно и понятние написать!

[GetMax]

можно и понятнИе написать!

А можно еще грамотно писать

[Shift_sk]

))ну ты остряк)

[vitik]

а как их записать в var

[Stilet]

А зачем? Это стандартные инструкции даже для Паскаля

[vitik]

но в моей сриде ето воспринимаеться как ошыбка