volkonskaya

[volkonskaya]

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

[Poma][a]

1) Название темы - супер
2) Где здрасте?
3) Где просьба о помощи?
4) Где хоть строка вашего кода и\или банальное объяснение (болел(а) и т.д и т.п.)?
З.Ы. И создавать тему 2 раз, не проанализировав предыдущие ошибки - по-моему свинство в 1 очередь к окружающим...

[IT-man]

p:=1;
k:=0;
for i := 1 to n do begin
readln(a[i]);
if a[i]>M then begin inc(k);p:=p*a[i];end;end;
if k=0 then writeln('Nea')
else writeln(p);