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

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

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

Вариант 7

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

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

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

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

program lab6;

var i,j :byte;

pr,n:integer;

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

begin

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

Read(n);

for i:=1 to n do

begin

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

end;

pr:=1;

for i:=1 to n do

for j:=1 to n do

begin

if (i+j=n+1) then

pr:=pr*a[i,j]

end;

Writeln(pr);

end.

pr:=1

pr:=pr*a[i,j]

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