1. В последовательности чисел подсчитать произведение чисел, кратных 3. 2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных. 3. В последовательности чисел определить предпослед...
1. В последовательности чисел подсчитать произведение чисел, кратных 3.
2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).
Гость
Ответ(ы) на вопрос:
Гость1)
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p
Не нашли ответ?
Похожие вопросы