Найти произведение положительных чисел значение которых не превышают 5 из 10 введённых Срочно надо!!!

Найти произведение положительных чисел значение которых не превышают 5 из 10 введённых Срочно надо!!!
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var a,p,i: integer; begin p:=1; for i:=1 to 10 do begin readln(a); if (a>0) and (a<=5) then p:=p*a; end; writeln(p); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы