Предмет: Информатика,
автор: yu0silaeva
Помогите пожалуйста!!!
Даны N чисел. Найдите кол-во положительных и кол-во отрицательных. Сравнить результаты
Ответы
Автор ответа:
0
var i, n, o, p, x:Integer;
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
begin
read(x);
if x>0
inc(p);
if x<0
inc(o);
end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.
begin
write("N: ");
readln(n);
p:=0;
o:=0;
for i:=1 to n do
begin
read(x);
if x>0
inc(p);
if x<0
inc(o);
end;
write("Кол-во положительных чисел: ", p, "; кол-во отрицательных чисел: ", o, ". Разница: ", abs(p-o));
end.
Похожие вопросы
Предмет: Литература,
автор: guranecdara
Предмет: История,
автор: Timaaaa23
Предмет: Українська література,
автор: dashaistominova20
Предмет: Экономика,
автор: Настёнка200375