Question

Дан массив целых чисел a1,.....aN выяснить каких элементов в массиве больше положительных или отрuцательных решение Pascal.

Answer 1

var

 a:array of integer;

 i,count,n:integer;

begin

 randomize;

 count:=0;

 readln(n);

 setlength(a,n);

 for i:=0 to n-1 do

   begin

     a[i]:=random(21)-10;

     write(a[i]:4);

     if a[i]<0 then inc(count);

     if a[i]=0 then n:=n-1;

   end;

 writeln;

 if count>n-count then  

   writeln('Больше отрицательных')

     else

       if count<n-count then

         writeln('Больше положительных')

          else

           writeln('Поровну');

end.