Составьте программу, запрашивающую у пользователя K целых чисел и вычисляющую произведение положительных.
Пример работы:
Окно вывода
Сколько чисел обработать? 5
Введите число 2
Введите число
Введите число
Введите число
Введите число
Произведение положительных чисел из 5 составляет 24
памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)
Составьте программу, запрашивающую у пользователя K целых чисел и вычисляющую произведение положительных.
Пример работы:
Окно вывода
Сколько чисел обработать? 5
Введите число 2
Введите число
Введите число
Введите число
Введите число
Произведение положительных чисел из 5 составляет 24
памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)
Пример работы:
Окно вывода
Сколько чисел обработать? 5
Введите число 2
Введите число
Введите число
Введите число
Введите число
Произведение положительных чисел из 5 составляет 24
памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var
K, number, product, i: integer;
begin
product := 1;
write('Сколько чисел обработать? ');
readln(K);
for i := 1 to K do
if number > 0 thenbegin
write('Введите число: ');
readln(number);
begin
product := product * number;
end;
end;
writeln('Произведение положительных чисел из ', K, ' составляет ', product);
end.