В ПАСКАЛЕ 1. В целочисленной последовательности есть нулевые элементы. Создать…

2 задачаprogram _2; var a: array [1… n] of integer; x,y,s,i: integer; beginfor i: =1 to n do readln (a[i]); s: =0; x: =0; y: =0; for i: =1 to n do if a[i]=o then s: =s+1 else if a[i]>0 then x: =x+1 else if a[i]<0 then y: =y+1; writeln (s, x, y); end.