Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
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.
Результат выполнения программы:
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
Остались вопросы?
Еще вопросы по категории Информатика
[email protected] что подразумевается под языком программирования?...
17. К устройствам ввода информации относятся г) УУ в) регистр АЛУ г) устройство управления a) монитор, принтер, графопостроитель б) винчестер, мышь...
Может ли мошенничество быть электронным риском? 1.Да, так как часто мошенники для достижения своих целей прибегают к помощи технических средств 2.Нет...
Какая самая трудная профессия в мире пожалуйста скажите...
Помогите пожалуйста!!!! Разработчики языка Python придерживаются определённой философии программирования, называемой «The Zen of Python» («Дзен Питона...
Все предметы