лабораторная работа / вар6 / Лаб5

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

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

Вариант 6

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

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

Задание: Найти произведения элементов массива четных и нечетных позиций.

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

program lab5;

var

a:array[1..20] of real;

n,i:byte;

pc,pn:real;

begin

Writeln('Введите количество элементов');

read(n);

Writeln('Введите массив');

for i:=1 to n do

begin

Read(a[i]);

end;

pc:=1;

pn:=1;

for i:=1 to n do

begin

if i= trunc(i/2)*2 then

pc:=a[i]*pc

else

pn:=a[i]*pn;

end;

writeln('четные ',pc:2:3,' не четные ',pn:2:3);

end.

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