использовать Чертежник
алг
нач
поднять перо
сместиться в точку (1,0)
опустить перо
сместиться в точку (1,1)
сместиться в точку (2,1)
сместиться в точку (2,0)
сместиться в точку (1,0)
поднять перо
сместиться в точку (2,1)
опустить перо
сместиться в точку (2,2)
сместиться в точку (3,2)
сместиться в точку (3,0)
сместиться в точку (2,0)
поднять перо
сместиться в точку (3,2)
опустить перо
сместиться в точку (3,3)
сместиться в точку (4,3)
сместиться в точку (4,0)
сместиться в точку (3,0)
поднять перо
сместиться в точку (4,2)
опустить перо
сместиться в точку (5,2)
сместиться в точку (5,0)
сместиться в точку (4,0)
поднять перо
сместиться в точку (5,1)
опустить перо
сместиться в точку (6,1)
сместиться в точку (6,0)
сместиться в точку (5,0)
поднять перо
сместиться в точку (6,1)
опустить перо
сместиться в точку (7,1)
сместиться в точку (7,0)
сместиться в точку (6,0)
поднять перо
сместиться в точку (7,1)
опустить перо
сместиться в точку (7,2)
сместиться в точку (8,2)
сместиться в точку (8,0)
сместиться в точку (7,0)
поднять перо
сместиться в точку (8,2)
опустить перо
сместиться в точку (8,3)
сместиться в точку (9,3)
сместиться в точку (9,0)
сместиться в точку (8,0)
поднять перо
сместиться в точку (9,2)
опустить перо
сместиться в точку (10,2)
сместиться в точку (10,0)
сместиться в точку (9,0)
поднять перо
сместиться в точку (10,1)
опустить перо
сместиться в точку (11,1)
сместиться в точку (11,0)
сместиться в точку (10,0)
поднять перо
сместиться в точку (11,1)
опустить перо
сместиться в точку (12,1)
сместиться в точку (12,0)
сместиться в точку (11,0)
поднять перо
сместиться в точку (12,1)
опустить перо
сместиться в точку (12,2)
сместиться в точку (13,2)
сместиться в точку (13,0)
сместиться в точку (12,0)
поднять перо
сместиться в точку (13,2)
опустить перо
сместиться в точку (13,3)
сместиться в точку (14,3)
сместиться в точку (14,0)
сместиться в точку (13,0)
поднять перо
сместиться в точку (14,2)
опустить перо
сместиться в точку (15,2)
сместиться в точку (15,0)
сместиться в точку (14,0)
поднять перо
сместиться в точку (15,1)
опустить перо
сместиться в точку (16,1)
сместиться в точку (16,0)
сместиться в точку (15,0)
кон
Объяснение:
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных