56

Дана последовательность целых положительных чисел. Найти произведение только…

20 марта 2023

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдатьсообщение об этом.

категория: информатика



94

var m,x,n,p,i: integer; s: boolean; beginp: =1; writeln ('Vvedite kolichestvo chisel: '); read (n); writeln ('Vvedite chislo s kotorim sravnit: '); read (m); writeln ('Vvedite cifri: '); for i: =1 to n do beginreadln (x); if m

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...