var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
Для вирішення цієї задачі у скретчі, використовуйте наступний алгоритм:
1. Створіть новий проект у скретчі.
2. Додайте дві змінні: "Петрик" і "Катерина".
3. На сцені створіть двох персонажів, які представлятимуть Петрика і Катерину.
4. Встановіть значення змінних "Петрик" і "Катерина" відповідно до відстаней, які пройшли Петрик і Катерина.
5. Додайте умовний блок "Якщо" для порівняння значень змінних "Петрик" і "Катерина".
6. Вставте блок "Сказати" всередині умовного блоку та виведіть повідомлення про те, хто пройшов більшу відстань.
7. Запустіть проект та перевірте правильність виведення повідомлення.
Наприклад, алгоритм у скретчі може виглядати наступним чином:
```
Коли гра стартує
Я встановлю змінну "Петрик" в x
Я встановлю змінну "Катерина" в y
Якщо "Петрик" > "Катерина"
Сказати "Петрик пройшов більшу відстань!"
Якщо "Петрик" < "Катерина"
Сказати "Катерина пройшла більшу відстань!"
Якщо інакше
Сказати "Петрик та Катерина пройшли однакову відстань!"
```
Цей алгоритм порівняє значення змінних "Петрик" і "Катерина" та виведе відповідне повідомлення на екрані у скретчі, вказуючи, хто пройшов більшу відстань.