Предмет: Информатика,
автор: sany22b
С клавиатуры вводится последовательность ненулевых целых чисел. 0 - конец последовательности. Выяснить, является ли произведение отрицательных чисел отрицательным?
И вторая задачка
С клавиатуры вводится последовательность из N целых чисел. Подсчитать сумму чисел, больших заданного числа А.
Помогите пжлст)
denn0:
На каком языке?
Pascal
Сорри, совсем забыл уточнить, да
Паскаль убогий язык для обучения. Соррян, таким не занимаюсь. Ну удачи, мб кто-то другой поможет. Хотя прога очень простая. Делаем while, который работает пока не введён 0, в нём if, который проверяет отрицательно ли введённое число. Если да, он умножает например a (a>0) на это число. После while проверяем больше ли это число чем ноль. Во втором вводим n, делаем for и в нём если число больше чем a прибавляем к переменной (например b, которая изначально равно нулю) это число.
Ответы
Автор ответа:
0
1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 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
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 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
Интересные вопросы
Предмет: Математика,
автор: polinadrybalchenko
Предмет: Математика,
автор: beexvika
Предмет: Математика,
автор: evaerohina22406580
Предмет: Математика,
автор: шпаояпьчрд