Pabc. Дана матрица A (5,6). Составить массив, содержащий минимальные элементы каждой строки.

Const m=5; n=6;

var

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

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

i, j, min:integer;

begin

Randomize;

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

for i:=1 to m do

begin

for j:=1 to n do

begin

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

write (a[i, j]:4) ;

end;

writeln;

end;

for i:=1 to m do

begin

min:=a[i, 1];

for j:=2 to n do

if a[i, j]
b[i]:=min;

end;

writeln ('Полученный массив:') ;

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

writeln;

end.

Пример:

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

44 30 35 16 47 3

30 15 23 40 15 46

46 11 2 3 16 40

19 17 8 22 10 25

41 23 9 47 7 36

Полученный массив:

3 15 2 8 7

Var a: array [1 ... 5, 1 ... 6] of real;

b: array [1 ... 5] of real;

i, j: integer;

begin for i:=1 to 5 do

begin read (a[i, 1]) ;

b[i]:=a[i, 1];

for j:=2 to 6 do

begin read (a[i, j]) ; {ввод элементов массива в цикле с параметром}

if (b[i]>a[i, j]) then b[i]:=a[i, j];

end;

writeln; {для перехода на новую строку}

end;

for i:=1 to 5 do

write (b[i], ' ') ;

readln;

end.