лабораторная работа / вар1 / лаб6

Балаковский институт техники технологий и управления

Лабораторная работа №6

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: найдите минимальные элементы в каждой строке матрицы (n,m) и выведите их в виде одномерного массива.

program lab6;

var i,j,m,n,imin,jmin: byte;

a: array[1..10,1..10] of integer;

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

begin

writeln('‚Введите количество строк’);

Read(n);

writeln('Введите количество столбцов’);

Read(m);

for i:=1 to n do

begin

writeln('Введите значения ',i,' строки);

for j:=1 to m do Read(a[i,j]);

end;

for i:=1 to n do

begin

imin:=i; jmin:=1;

for j:=2 to m do

begin

if a[imin,jmin]>a[i,j] then

begin

imin:=i;

jmin:=j;

end;

end;

b[i]:=a[imin,jmin];

Writeln ('Минимальное значение ',i,' строки равно ',b[i]);

end;

end.