Вопрос по информатике:
С клавиатуры вводится последовательность ненулевых целых чисел. 0 - конец последовательности. Выяснить, является ли произведение отрицательных чисел отрицательным?
И вторая задачка
С клавиатуры вводится последовательность из N целых чисел. Подсчитать сумму чисел, больших заданного числа А.
Помогите пжлст)
- 26.05.2018 01:51
- Информатика
- remove_red_eye 18874
- thumb_up 39
Ответы и объяснения 1
var a,z:integer;
begin
z:=1;
readln(a);
while a0 do
begin
if a<0 then z:=-z;
readln(a);
end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.
Пример:
12
-45
-87
-20
0
Произведение отрицательных чисел отрицательно
2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
begin
readln(x);
if x>a then s:=s+x
end;
writeln('s = ',s);
end.
Пример:
5 30
48
15
80
29
32
s = 160
- 27.05.2018 04:22
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.