Предмет: Информатика,
автор: мимпрррр
Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.
Ответы
Автор ответа:
0
const
nn=100;
var
i,n,d:integer;
a:array[1..nn] of integer;
begin
Write('n = '); Read(n);
Randomize;
d:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]>0 then d:=d+1
else
if a[i]<0 then d:=d-1
end;
Writeln;
if d>0 then Writeln('Положительных чисел больше')
else
if d<0 then Writeln('Отрицательных чисел больше')
else Writeln('Положительных и отрицательных поровну')
end.
Пример
n = 13
-1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7
Положительных чисел больше
nn=100;
var
i,n,d:integer;
a:array[1..nn] of integer;
begin
Write('n = '); Read(n);
Randomize;
d:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]>0 then d:=d+1
else
if a[i]<0 then d:=d-1
end;
Writeln;
if d>0 then Writeln('Положительных чисел больше')
else
if d<0 then Writeln('Отрицательных чисел больше')
else Writeln('Положительных и отрицательных поровну')
end.
Пример
n = 13
-1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7
Положительных чисел больше
Автор ответа:
0
Знак d определяет, каких больше
Автор ответа:
0
var
cnt1, cnt2,n,tmp:integer;
begin
Readln(N);
while n > 0 do
begin
n:= n -1;
Read(tmp);
if tmp > 0 then cnt1:= cnt1 + 1;
if tmp < 0 then cnt2:= cnt2 + 1;
end;
if cnt1 > cnt2 then Writeln('Положительных больше')
else if (cnt1 = cnt2) then writeln('Одинаковое количество')
else Writeln('Отрицательных больше');
end.
Пример:
4
-1 -1 -1 1
Отрицательных больше
cnt1, cnt2,n,tmp:integer;
begin
Readln(N);
while n > 0 do
begin
n:= n -1;
Read(tmp);
if tmp > 0 then cnt1:= cnt1 + 1;
if tmp < 0 then cnt2:= cnt2 + 1;
end;
if cnt1 > cnt2 then Writeln('Положительных больше')
else if (cnt1 = cnt2) then writeln('Одинаковое количество')
else Writeln('Отрицательных больше');
end.
Пример:
4
-1 -1 -1 1
Отрицательных больше
Похожие вопросы
Предмет: Алгебра,
автор: yana5753
Предмет: Русский язык,
автор: OukiTitan
Предмет: Химия,
автор: onucin8080
Предмет: Математика,
автор: 89280778850ж