Пользователь вводит N целых чисел. Программа вычисляет произведение положительных и отрицательных чисел.
Решение:
program cycles_1; uses crt; var n, op, opt, i, x: integer; op1, op2: boolean; begin clrscr; write(' Количество чисел > '); read(n); op:=1; opt:=1; op1:=false; op2:=false; for i:=1 to n do begin write(i, ' число > '); read(x); if x>=0 then begin op:=op*x; op1:=true end else begin opt:=opt*x; op2:=true end; end; if op1 then writeln(' Произведение полож. чисел: ', op) else writeln(' Все числа отричательные'); if op2 then write(' Произведение отриц. чисел: ', opt) else writeln(' Отричательных чисел нет'); readkey; end.