Question

1. Найти произведение отрицательных чисел и количество нечетных положительных восьми введенных чисел.

2. Найти сумму и произведение первых десяти чисел, возведенных в четвертую степень.​

Answer 1

program zz1;

var a, b,  n, i, k:integer; // задаем переменные целого типа

begin

b:=1;

for i:=1 to 10 do

begin

read(a);  // вводим число

if a > 0 then b:=b * a; // проверяем, если число больше нуля, то умножаем его на произведение

if a < 0 then n:=n + a; // проверяем, если число меньше нуля, то добавляем его в сумму

if a < 0 then k:=k + 1; // проверяем, если число меньше нуля, то считаем его

end;

writeln(' произведение положительных = ', b); // выводим

ответы

writeln(' сумма отрицательных = ', n);

writeln(' количество отрицательных = ', k);

end.