Паскаль,Масивы,Консультация

[Forgotten]

Задание на паскале:
Дан массив из 100 случайных елементов (положительных и отрицательных)
Подсчитать % положительных, отрицательных, нулей.

т.к. у нас 100 елементов то кол-во чисел=процентам.
Написал программу но почему-то при любом исходе дает 0 положительных 1 отр. и 99 нулей. Подскажите в чем ошибка.

program z100;
uses crt;
var a:array[1..100] of integer;
i,pol,otr,noli:integer;
begin
clrscr;
randomize;
for i:=1 to 100 do begin
a[i]:=random(50)-100;
pol:=0;
otr:=0;
noli:=0;
if a[i]>0 then pol:=pol+1 else
if a[i]<0 then otr:=otr+1;
noli:=100-otr-pol;
end;
writeln ('polo}I{uTeJIHue - ', pol);
writeln ('OTruCaTeJIHue - ', otr);
writeln ('HyJIi - ', noli);
readln
end.

[VIK_aka_TOR]

во первых... вынеси обнуление переменных из цикла...
во вторых... разберись с рандомом... то создаешь числа от 0 до 49 и отнимаешь от них 100, это не очень хорошо.... так как всегда отрицательные будут....
в третьих... оформляй сообщения с использованием тега кода...
вот примерное решение твоих проблем...

var a:array[1..100] of integer;
i,pol,otr,noli:integer;
begin
randomize;
pol:=0;
otr:=0;
noli:=0;
for i:=1 to 100 do begin
a[i]:=random(100)-50;

if a[i]>0 then pol:=pol+1 else
if a[i]<0 then otr:=otr+1;
noli:=100-otr-pol;
end;
writeln ('polo}I{uTeJIHue - ', pol);
writeln ('OTruCaTeJIHue - ', otr);
writeln ('HyJIi - ', noli);

readln
end.

[Son Of Pain]

Потому что ты обнуляешь счетчики при каждом проходе цикла, очевидно. )

[Forgotten]

ааа ясно, спасибо