var n,i,c,m,p:integer;
begin
m:=0;
p:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=0 to n-1 do
begin
readln(c);
if c < 0 then m:=m+1
else if c = 0 then continue
else p:=p+1;
end;
if p < m then writeln('Отрицательных чисел больше, чем положительных.')
else if p > m then writeln('Положительных чисел больше, чем отрицательных.')
else writeln('Равное количество положительных и отрицательных чисел');
end.
Объяснение:
Переменные:
n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.
Считаем, что "0" - ни положительное, ни отрицательное число.
ДВЕ ЗАДАЧИ В ОДНОЙ
const N=10;
var
a:Array[1..N] of integer;
i,k,sum,c,b:integer;
begin
Randomize;
k:=0;
sum:=0;
for i:=1 to N do begin
a[i]:=random(61);
if a[i]>30 then k:=k+1;
if a[i]<30 then sum:=sum+a[i];
write(a[i],' ');
end;
writeln;
writeln(k,' чисел превышает 30');
writeln('сумма чисел = ',sum);
writeln;writeln;
writeln('введите число a');
readln(c);
writeln('введите число b (b должно быть больше a)');
readln(b);
for i :=c to b do
write(i,' ');
readln;
end.