Программа вычисления произведения элементов линейной таблицы ( вектора ) максимального размера 10 элементов.

Program Lin (Input, Output);           

Объявление имени программы

Const    

Блок объявления констант

Nmax = 10;           

Объявляем максимальное число элементов массива

Var         

Блок объявления глобальных переменных

X             : Array [1..Nmax] Of Real; 

Переменная X - массив действительных чисел

P             : Real;    

Переменная P - искомое произведение элементов массива

N             : Integer;              

Переменная N - число элементов массива

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Вычисление произведения элементов линейной таблицы.');  

Формулировка цели алгоритма

Write ('Введите число сомножителей N (N<=10): ');

Запрос ввода N - числа элементов массива

ReadLn (N);         

Ввод N

Write ('Введите элементы линейной таблицы: ');     

Запрос ввода элементов массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного вводимого элемента

Begin    

Начало тела цикла

Write ('X[', i: 2, '] = ');         

Вывод удобной подсказки

ReadLn (X [i] );   

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

P := 1;    

Переменной P присваиваем начальное значение 1

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

P := P * X [i];       

Домножаем P на очередной элемент массива X

WriteLn ('Значение произведения P = ', P: 4: 2);        

Вывод полученного значения произведения

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.