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

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.

program znanija_32614708;

const n=10;

var a:array[1..n] of real; i,znak,poz,neg:integer;

{

n - число элементов массива;

a - массив;

i - счетчик цикла;

znak - обеспечивает смену знака элементов массива;

poz - число положительных элементов;

neg - число отрицательных элементов.

}

begin

    randomize;

    for i:=1 to n do begin

        if random<0.5 then znak:=-1 else znak:=1;

        a[i]:=znak*random;

        if a[i]>0 then poz:=poz+1;

        if a[i]<0 then neg:=neg+1;

    end; {for i}

    write('В массиве больше ');if poz>neg then write('положительных') else write ('отрицательных');write(' чисел.');

end.