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

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

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

Вариант 22

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

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

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

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

program lab6;

var i,j,n,m:byte;

ch,nch: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;

ch:=1;

nch:=1;

for i:=1 to m do

for j:=1 to n do

if odd(i) Then

nch:=a[j,i]*nch

Else

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

writeln('Произведение четных=',ch:1:0);

writeln('Произведение не четных=',nch:1:0);

end.

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