Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных,...

Question

Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!

---

Answer 1

В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;<br>if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');