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

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдать сообщение об этом.   На Паскале.   Срочно, и пожалуйста, без заумных команд, а так чтобы понятно было!
Гость
Ответ(ы) на вопрос:
Гость
var m,x,n,p,i:integer; s:boolean; begin p:=1; writeln('Vvedite kolichestvo chisel:'); read(n); writeln('Vvedite chislo s kotorim sravnit:'); read(m); writeln('Vvedite cifri:'); for i:=1 to n do begin readln(x); if m
Не нашли ответ?
Ответить на вопрос
Похожие вопросы