Сформировать одномерный массив В из минимальных элементов строк двухмерного массива А (N, M) Паскаль, написать эту программу в тетрадь

Const

nm = 20;

nn = 20;

var

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

b: array[1 ... nm] of integer;

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

begin

Write ('Введите число строк и столбцов массива: ') ; Readln (m, n) ;

Randomize;

Writeln ('Исходный массив') ;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

a[i, j] : = Random (101) - 50;

Write (a[i, j]:4)

end;

Writeln

end;

for i:=1 to m do

begin

mina:=32767;

for j:=1 to n do if mina>a[i, j] then mina:=a[i, j];

b[i]:=mina

end;

Writeln ('Сформированный массив') ;

for i:=1 to m do Write (b[i]:4) ;

Writeln

end.

Тестовое решение:

Введите число строк и столбцов массива: 6 5

Исходный массив

46 - 32 - 6 20 36

-2 - 41 - 10 - 42 26

-33 16 - 25 9 46

-36 20 - 50 36 - 37

-41 16 34 - 8 9

38 - 36 - 14 - 18 - 33

Сформированный массив

-32 - 42 - 33 - 50 - 41 - 36