Ввести числовую матрицу {Aij}i=1,…,n;j=1,…,m. Найти минимум из наибольших элементов столбцов — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 100, 1 .. 100] of integer;
  B: array [1 .. 100] of integer;
  i, j, n, m, s, min: integer;

  { -------------------------------------------- }
begin
  write('N= ');
  readln(n);
  write('M= ');
  readln(m);

  writeln('Vvedite elementy massiva A: ');
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  clrscr;
  write('Vot vvedennyi vami massiv A: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
      write(A[i, j]:4, ' ');
  end;

  for i := 1 to m do
  begin
    s := 1;
    for j := 2 to n do
      if A[j, i] > A[s, i] then
        A[s, i] := A[j, i];
    B[i] := A[s, i];
  end;

  min := B[1];
  for j := 2 to m do
    if B[j] < min then
      min := B[j];

  writeln;
  writeln;
  writeln('MIN: ', min);

  readln;

end.

Leave a Comment

1 + 5 =