Дано масив А[1. . 5]. Запишіть оператори для реалізації завдань:а) ввести з клавіатури значення елементів масиву;б) знайти добуток елементів масиву;в) знайти мінімальний елемент масиву;г) знайти кількість додатних елементів масиву. ​

Программа:

program test;

Uses Math;

const

N = 5;

var

A : array [1. . N] of integer; {Массив элементов}

i : integer; {Счетчик цикла}

P : Int64; {Произведение элементов}

mn : integer; {Минимальный элемент массива}

C : integer; {Количество положительных элементов}

begin

P := 1;

C := 0;

for i := 1 to N do begin

{Вводим очередной элемент массива}

Read( A[i] );

{Вычисляем произведение}

P := P * A[i];

{Положительные элементы подсчитываем}

if A[i] > 0 then C := C + 1;

end;

{Находим минимальный }

mn := A[1];

for i := 2 to N do

mn := min( mn, A[i] );

WriteLn('Произведение - ', P);

WriteLn('Количество положительных - ', C);

WriteLn('Минимальный элемент - ', mn);

end.

Результат выполнения программы: