Лучшие помощники
3 апреля 2023 07:11
690

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

1 ответ
Посмотреть ответы
Программа:
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.

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

image
0
·
Хороший ответ
5 апреля 2023 07:11
Остались вопросы?
Найти нужный