ПРОГРАММИСТЫ ХЕЛП паскаль Составить блок-схему и программу для решения задачи: имеется последовательность натуральных чисел 1,2,3..., N и число K . Надо подсчитать, сколько чисел это последовательности деляться на k
Ввод : n,k
Вывод : кол -во (m)

Написать блок-схему и программу для определения "знака" числа
Ввод : a
Вывод : + или - или 0

Никита,оставшись.один,пошёл в сарай и увидел там пустую бочку.Он думал,что в ней живёт маленький человечек с длиной бородой.Никита разговаривал с ним,по отдать ножницы,которые пропали у мамы.За деревней кто-то ухнул.Бочка отозвалась страшным голосом.Никита испугался и по защиты у солнца.

Солнце было доброе и ласковое.Никита подумал,что это дедушка теперь живёт на солнце.

За огородом находился старый колодец.Никита думал,что на дне живут маленькие водяные жители,толстые,безволосые и вредные.Потом ему представилось,что там ещё и великан.

У сарая он увидел две земляные норы.Он решил,что это змеиные норы.

Никита увидел на огороде старый пень и решил,что это голова человека.Лицо у пня было сердитое.

Он смотрел на старую баню и думал.что это бабушка превратилась в избушку.

Петух представлялся ему пастухом,а цветок-маленьким ребёнком.

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3