22 БАЛЛА!!! 2.Прочитайте внимательно задание, рассмотрите пример, выполните действия описанные в алгоритме и запишите ответ.

119

403

Посмотреть ответы 1

Ответы на вопрос:

nushales

Информатика

4,8(14 оценок)

Var i,n,k: integer; p: longint; f,ff: boolean; begin write('введите количество чисел -> '); readln(n); writeln('тeперь вводите сами числа'); p: =1; f: =false; ff: =false; for i: =1 to n do begin read(k); f: =((k< 0) and ((k mod 2)< > 0)); ff: =(ff or f); if f then p: =p*k end; if ff then writeln('произведение нечетных отрицательных чисел: ',p) else writeln('не было введено ни одного отрицательного нечетного числа') end. тестовое решение: введите количество чисел -> 10 тeперь вводите сами числа 5 -7 16 0 -3 4 -6 2 1 8 произведение нечетных отрицательных чисел: 21