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

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

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

Вариант 12

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

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

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

Текст программы:

program lab6;

var i,j,n,m:byte;

pr,min:real;

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

begin

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

Read(n);

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

Read(m);

min:=1;

for i:=1 to n do

begin

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

for j:=1 to m do

begin

Read(a[i,j]);

min:=min*a[i,j];

e

min:=min*a[i,j]

nd;

end;

for j:=1 to m do

b

pr=a[i,j]*pr

Да=pr*a[i,j]

pr=1

нет=pr*a[i,j]

min>pr

egin

pr:=1;

for i:=1 to n do pr:=a[i,j]*pr;

if min>pr Then

min:=pr;

end;

writeln('min=',min:1:1);

end.

Рис.1 Блок–схема программы