Question

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

 

На Паскале.

 

Срочно, и пожалуйста, без заумных команд, а так чтобы понятно было!

Answer 1

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<x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.