Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

На Паскале.

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

Ответ оставил Гость

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