1. В последовательности чисел подсчитать произведение чисел, кратных 3.2. В
1. В последовательности чисел подсчитать творение чисел, кратных 3.
2. В последовательности чисел сопоставить, что больше сумма положительных либо про-изведение отрицательных.
3. В последовательности чисел найти предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).
1 ответ
Таисия Чумадина
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]gt;0 then s:=s+a[i];
for i:=1 to n do
if a[i]lt;0 then p:=p*a[i];
if pgt;s then writeln('proizvedenie')
else if plt;s then writeln('summa')
else writeln('ravni');
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]lt;0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.
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]gt;0 then s:=s+a[i];
for i:=1 to n do
if a[i]lt;0 then p:=p*a[i];
if pgt;s then writeln('proizvedenie')
else if plt;s then writeln('summa')
else writeln('ravni');
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]lt;0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.
Дворядкин
Павел
Я не знаю почему но не работает ни как((
Kundrjukov Pavel
а почему не работает
Ivan Juskaev
что выводит
Лилия Гайлова
вот конкретно то что ничего не выводит
Вероника Душенковская
оплошности нет, но и нечего не выводит
Лидия Момзырева
а как ты вводишь
Мирослава Зегзюлина
ну вот я ввожу последовательность 2 6 9 10 5 3 2 8 0 1 10 мне в ответ пишет 54, а насамом то деле обязано быть 162, это в первом задании
Екатерина
во втором я ввожу последовательность чисел 8 0 -4 3 -1 10 -5 2 1 в ответ вот и все summa
Виктор Охоткин
а в 3-ем вот ввожу -9 8 5 4 3 0 -6 8 5 3 2 -9 и всегда получаю 0
Евгения Сметанюк
вводи так поначалу количество чисел которое ты введеш а потом сами числа
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов