Question

Дан целочисленный массив состоящий из 30 элементов. вывести кол-во положительных,отрицательных и нулевых элементов. программа нужна для паскаль abc, желательно объяснить что и как получилось, если не трудно, заранее .

Answer 1

Const
n1=1000;
type
mas=array[1..n1]of integer;
var
a:mas;
i,kpol,kotr,knuley,n:integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=random(31)-5;
for i:=1 to n do write(a[i],' '); writeln;
kpol:=0;kotr:=0;knuley:=0;
for i:=1 to n doif a[i]<0 then kotr:=kotr+1 else
if a[i]>0 then kpol:=kpol+1 else
if a[i]=0 then knuley:=knuley+1;
writeln(kotr);
writeln(kpol);
writeln(knuley);end.