Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количествонулевых
Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 var a: array [1..10] of integer; i,p,o,n: byte; begin for i:=1 to 10 do begin write('Введите ',i,' число: '); readln(a); end; for i:=1 to 10 do begin if (a > 0) then inc(p) else if (a < 0) then inc (o) else inc(n); end; writeln('Количество положительных элементов = ',p); writeln('Количество отрицательных элементов = ',o); writeln('Количество нулевых элементов = ',n); end.