Предмет: Информатика,
автор: leravaleriyastepa
1. В последовательности чисел подсчитать произведение чисел, кратных 3.
2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).
Ответы
Автор ответа:
0
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<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]<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]>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<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]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.
Автор ответа:
0
а как ты вводишь
Автор ответа:
0
ну вот я ввожу последовательность 2 6 9 10 5 3 2 8 0 1 10
мне в ответ пишет 54, а насамом то деле должно быть 162, это в первом задании
мне в ответ пишет 54, а насамом то деле должно быть 162, это в первом задании
Автор ответа:
0
во втором я ввожу последовательность чисел 8 0 -4 3 -1 10 -5 2 1
в ответ вот и все summa
в ответ вот и все summa
Автор ответа:
0
а в третьем вот ввожу -9 8 5 4 3 0 -6 8 5 3 2 -9
и всегда получаю 0
и всегда получаю 0
Автор ответа:
0
вводи так сначала количество чисел которое ты введеш а потом сами числа
Интересные вопросы
Предмет: Литература,
автор: doonet8648
Предмет: Геометрия,
автор: xXxSeVeRxXx
Предмет: Русский язык,
автор: karimysia
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: ss77hoh