Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдать сообщение об этом. На Паскале. Срочно, и пожалуйста, без заумных команд, а так ...
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдать сообщение об этом. На Паскале. Срочно, и пожалуйста, без заумных команд, а так чтобы понятно было!
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы