Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 07:11
863
Дано масив А[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
Остались вопросы?
Еще вопросы по категории Информатика
Какие элементы базы данных могут изменяться пользователем?  1. поля  2. записи  3. индексы  4. ключи  5. связи таблиц...
19. На рисунке показано правило закраски квадратов со сторонами 5 и 7. Сколько чёрных полей имеет аналогичный квадрат стороной 9 аналогичный квадрат...
Первая цифра после точки. Дано положительное действительное число X. Выведите его первую цифру после десятичной точки. Python...
Длительность записи Проводилась монозвукозапись с частотой дискретизации 16 кГц и глубиной кодирования 32 бита. В результате получили файл размером 20...
Caps Lock - это клавиша: а) включения дополнительной клавиатуры; б) фиксации ввода заглавных букв; в) замены символов; г) вставки символов....