Программа:
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.
Результат выполнения программы:
![Дано масив А[1..5]. Запишіть оператори для реалізації завдань: а) ввести з клавіатури значення елеме](/tpl/images/1774/6591/ee5c7.jpg)
