Нужно написать программу по паскалю: сформировать массив из десяти элементов.…

var a: array [1… 100] of integer; i,n,plus,minus,zero: integer; Begin randomize; n: =10; for i: =1 to n do begin a[i]: =random (n*10) — 10*n div 2; write (a[i]: 4); if i mod 10=0 then writeln; end; for i: =1 to n do begin if a[i]<0 then plus: =plus+1; if a[i]>0 then minus: =minus+1; if a[i]=0 then zero: =zero+1; end; writeln (plus, minus, zero); End.