1. Найти произведение отрицательных чисел и количество нечетных положительных восьми введенных чисел.
2. Найти сумму и произведение первых десяти чисел, возведенных в четвертую степень.
2. Найти сумму и произведение первых десяти чисел, возведенных в четвертую степень.
More Questions From This User See All
Answers & Comments
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.