Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!
Answers & Comments
ZaharovVasya
В начале программы надо написать 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; if M[i]=0 then n:=n+1; end; writeln(k,'Положительные'); writeln(t,'отрицательные'); writeln(n,'Нулевые');
Answers & Comments
вместо 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;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');