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

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

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

Вариант 13

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

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

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

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

program lab6;

var i,j,n,m:byte;

pr,max:real;

a: array[1..10,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 j:=1 to m do

begin

pr:=1;

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

if max<pr Then

max:=pr;

e

pr=1

nd;

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

end.

pr=a[i,j]*pr

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

Да=pr*a[i,j]

max=pr

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