Вывести через пробел количество вхождений каждой цифры в заданную последовательность - PascalABC.NET

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

На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел. ВХОДНЫЕ ДАННЫЕ Дана последовательность цифр от 1 до 9, заканчивающаяся нулем. ВЫХОДНЫЕ ДАННЫЕ Выведите через пробел количество единиц, двоек, …, девяток в этой последовательности. ПРИМЕРЫ ВВОД ВЫВОД 1 1 4 1 5 8 6 3 5 1 0 4 0 1 1 2 1 0 1 0

Решение задачи: «Вывести через пробел количество вхождений каждой цифры в заданную последовательность»

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

var m: array [1..9] of word = (0, 0, 0, 0, 0, 0, 0, 0, 0);
    i: byte;
begin
  repeat
    read(i);
    if i <> 0 then inc(m[i])
  until i = 0;
  for i := 1 to 9 do write(m[i], ' ')
end.

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

Создается массив m типа array [1..9] of word, инициализированный нулями.
Вводится переменная i типа byte, которая будет использоваться как счетчик для цикла.
Запускается цикл repeat, который будет выполняться до тех пор, пока не будет введено значение i, которое не равно нулю.
Внутри цикла вызывается функция read(i), которая считывает значение i с помощью встроенной функции readln.
Если i не равно нулю, то вызывается функция inc(m[i]), которая увеличивает значение элемента массива m с индексом i на единицу.
После окончания цикла repeat, запускается цикл for, который выполняет запись значения каждого элемента массива m в консоль с помощью функции write(m[i], ' ')
Цикл for выполняется от 1 до 9, т.е. обрабатываются только элементы массива с индексами от 1 до 9.
Код не содержит обработку ошибок или исключений.
Ввод данных осуществляется с клавиатуры, а вывод происходит в консоль.
Данный код предназначен для подсчета количества вхождений каждой цифры в заданную последовательность.