Question

РЕБЯТА СРОЧНО(ЗАДАЛИ ПО ИНФОРМАТИКЕ НЕЗНАЮ КАК ДЕЛАТЬ)Дано двухмерный массив целых чисел размерностью n xm. Разработайте алгоритм и программу определения минимального числа в каждой строке и создания из них одномерного массива. Сформулируйте самостоятельно условие задачи, С какой вы встречались в жизне или можете встретиться и яку можно формализовать в сформулированной форме(В программе ЛАЗАРУС)

Answer 1

Ответ:

pascal

Объяснение:

const

 n=5;

 m=6;

var

 a : array [0..n, 0..m] of integer;

 b : array [0..m] of integer;

 i, j, min : integer;

begin

 randomize;

 for j:=0 to m-1 do begin

   for i:=0 to n-1 do begin

     a[i,j] := random(100);

     write(a[i, j], '  ');

   end;

   writeln();

 end;

 for j:=0 to m-1 do begin

   min := 100;

   for i:=0 to n-1 do

     if a[i,j] < min then min := a[i,j];

   b[j] := min;

 end;

 writeln('--------------------');

 for j := 0 to m-1 do

   write(b[j], '  ')

end.