Ответ:Ммм... Паскаль) Для этого сайты есть.
Объяснение:
Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.
Ответ в файле представлен кодом на ЯП Pascal