Question

Решить в ПаскальАВС!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

begin

   var (строк, столбцов) := ReadInteger2('Введи N и M:');

   Writeln('Введите элементы массива построчно');

   var массив := ReadMatrReal(строк, столбцов);

   массив.ElementsByRow.Min.Print

end.

===== Так писали наши деды =====

const

 nn = 50;

 mm = 50;

 

var

 i, j, n, m, min : integer;

 a: array[1..nn, 1..mm] of integer;

begin

 Write('Введи N и M: ');

 Read(n, m);

 Writeln('Введите элементы массива построчно');

 min := 32767;

 for i := 1 to n do

   for j := 1 to n do

   begin

     Read(a[i,j]);

     if a[i,j] < min then

       min := a[i,j]

   end;

 Write(min)

end.