a)
var
a: array [1..20] of integer;
i, count: integer;
begin
count:=0;
for i := 1 to 20 do
begin
readln(a[i]);
if a[i] >= 0 then
count += 1;
end;
writeln(count)
end.
в)
var a: array [1..20] of integer;
i, countplus, countminus: integer;
begin
countplus := 0;
countminus := 0;
for i := 1 to 20 do
begin
readln(a[i]);
if a[i] > 0 then
countplus += 1;
if a[i] < 0 then
countminus += 1;
end;
writeln(countplus, ' ', countminus)
end.
