ReadLn;

ReadLn

end.

Контрольний приклад (рис.1): A= 9, B= 26, W= 1423656.000.

Рис.1.

Завдання 2

Дано: Масив. Тип елементів масиву - INTEGER; кількість елементів масиву - 10.

Знайти: знайти добуток останніх 5 елементів масиву.

Рішення:

програмування pascal програма лістинг

Задано вектор А, який містить n елементів. Математично описати умову задачі, розробити схему алгоритму, скласти таблицю символічних імен та програму на мові Turbo Pascal згідно варіанту №23. Обчислення добутку останніх чотирьох елементів та суми перших трьох елементів масиву.

Алгоритм наведений на рис.2.1.

Рис.2.1.

Лістинг програми:

program Dodut_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

VAR N, I,P: INTEGER; X: ARRAY [1.10] OF INTEGER;

BEGIN

WRITELN ('Введіть кількість елементів масиву');

READLN (N);

FOR I: =1 TO N DO

BEGIN

WRITELN ('Введіть', I,'елемент масиву');

READLN (X [I]);

END;