Посчитать, сколько светофоров должно быть установлено на каждом из перекрестков - Pascal

Формулировка задачи:

Помогите пожалуйста решить задачу В подземелье M тоннелей и N перекрестков, каждый тоннель соединяет какие-то два перекрестка. Мышиный король решил поставить по светофору в каждом тоннеле перед каждым перекрестком. Напишите программу, которая посчитает, сколько светофоров должно быть установлено на каждом из перекрестков. Перекрестки пронумерованы числами от 1 до N.

Входные данные

Первая строка входных данных содержит два числа N и M (0 < N ≤ 100, 0 ≤ M ≤ N*(N – 1)/2). В каждой из следующих M строк записаны по два числа i и j (1 <= i,j ≤ N), которые означают, что перекрестки i и j соединены тоннелем.

Выходные данные

Требуется вывести N чисел: k-ое число означает количество светофоров на k-ом перекрестке.

Примечание.

Можно считать, что любые два перекрестка соединены не более, чем одним тоннелем. Нет тоннелей от перекрестка i до него самого. Примеры

входные данные

7 10 5 1 3 2 7 1 5 2 7 4 6 5 6 4 7 5 2 1 5 3

выходные данные

3 3 2 2 5 2 3

Решение задачи: «Посчитать, сколько светофоров должно быть установлено на каждом из перекрестков»

Листинг программы

var n, m, i, x: word;
    a: array[1..100] of word;
begin
  read(n, m);
  for i := 1 to 2 * m do
  begin
    read(x);
    inc(a[x])
  end;
  for i := 1 to n do write(a[i], ' ');
end.

Объяснение кода листинга программы

Объявляется переменная n типа word - предположительно это количество перекрестков
Объявляется переменная m типа word - предположительно это количество светофоров
Объявляются переменные i и x типа word - вспомогательные переменные для циклов и считывания значений
Объявляется массив a размером 100 элементов типа word - предположительно для хранения количества светофоров на каждом перекрестке
Считывается значение n и m (количество перекрестков и светофоров)
Запускается цикл от 1 до 2 * m
- Считывается значение x (номер перекрестка, где установлен светофор)
- Увеличивается значение элемента массива a с индексом x на 1
Запускается цикл от 1 до n
- Выводится значение элемента массива a с индексом i (количество светофоров на каждом перекрестке) с пробелом после каждого значения Итак, данный код считывает информацию о том, сколько светофоров должно быть установлено на каждом из перекрестков и выводит это количество для каждого перекрестка.