Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 07:11
837
Дано масив А[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.
Результат выполнения программы:
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.
Результат выполнения программы:

0
·
Хороший ответ
5 апреля 2023 07:11
Остались вопросы?
Еще вопросы по категории Информатика
Петя скачивал файл со скоростью 218 бит/с, а затем передавал его Ване со скоростью 220 бит/с. На передачу файла Петя потратил 16 секунд. Сколько секун...
1) Кегель - это : A. начиртание шрифта. B. Размер шрифта. C. Элемент абзаца. D. Маркер на линейке формирования. 2) Вывод перечня символов, в то...
Ребят C#, помогите решить ошибку: System.FormatException: "Входная строка имела неверный формат." Программа сначала работает нормально: пользователь п...
? Вопросы для размышления 1. Как называется наименьшая единица измерения информации? 2. Что такое бит? 3. Что такое скорость передачи информации? 4. Ч...
N =5 A=[0]*N for i in range(N): A[i]=i+3 Какие значения будут записаны в массив A?...