ответ
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор ( 3,-1)
опустить перо
сместиться на вектор ( 0,4 )
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-4)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор(3,-1)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
Объяснение:
вроде бы работает
//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.
//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.