Вводить с клавиатуры...

Вводить с клавиатуры 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.