Нахождение минимального элемента в массиве [Паскаль]

[pionerka]

Как найти минимальный элемент в строке двумерного массива и потом эти элементы записать в одномерный массив??
Задача дана на паскале.

Забыла как делается,хоть тресни!!!

[Скарам]

А язык программирования какой?

[pionerka]

язык паскаль

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to m do
begin
 min:=a[i,1];
for j:=2 to m do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;

[psycho-coder]

У меня немного по другому

program q;

uses crt;

var
	i, l, r, m: Integer;
	mas: array [0..10, 0..10] of Byte;
	mRes: array [0..100] of Byte;
	
begin
	ClrScr;
	r := -1;
	m := 0;
	// ... Предположим, что массив забит
	for i := 0 to 10 do
		for l := 0 to 10 do
		begin
			if mas[i, l] > r then 
			begin
				r := mas[i, l];
				mRes[m] := r;
				Inc(m);
			end;
		end;
end.