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

Ответы на вопрос

Программа:
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.
Результат выполнения программы:




Для виконання цих завдань вам знадобляться оператори мови програмування, такі як масиви, цикли, змінні і введення даних з клавіатури. Оскільки ви не вказали конкретну мову програмування, я надам загальну інструкцію. Припустимо, що мова програмування - це псевдокод.
а) Ввести з клавіатури значення елементів масиву: ```plaintext Для i від 1 до 5: Ввести A[i] з клавіатури Кінець для ```
б) Знайти добуток елементів масиву: ```plaintext Добуток = 1 Для i від 1 до 5: Добуток = Добуток * A[i] Кінець для Вивести "Добуток елементів масиву: ", Добуток ```
в) Знайти мінімальний елемент масиву: ```plaintext Мінімум = A[1] // Початкове значення мінімуму Для i від 2 до 5: Якщо A[i] < Мінімум: Мінімум = A[i] Кінець для Вивести "Мінімальний елемент масиву: ", Мінімум ```
г) Знайти кількість додатних елементів масиву: ```plaintext КількістьДодатних = 0 Для i від 1 до 5: Якщо A[i] > 0: КількістьДодатних = КількістьДодатних + 1 Кінець для Вивести "Кількість додатних елементів масиву: ", КількістьДодатних ```
Ці оператори виконують необхідні дії для кожного з ваших завдань. Для конкретної мови програмування потрібно буде використовувати її синтаксис та функції введення/виведення даних залежно від контексту.


Похожие вопросы

Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili