Определить количество вхождений каждого числа в последовательность - Turbo Pascal (29125)

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

Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.

Решение задачи: «Определить количество вхождений каждого числа в последовательность»

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

program name;
const
  N=10;
var a:array [1..N] of integer;
  i,k,j:integer;
  flag:boolean;
 
begin
  writeln('Введите массив: ');
  for i:=1 to N do 
  readln(a[i]);
  for i:=1 to N do 
  begin
    flag:=true;
    k:=1; 
    for j:=1 to i-1 do 
      if a[i]=a[j] then flag:=false; 
    if (flag) then 
    begin
      for j:=i+1 to 10 do 
      if a[i]=a[j] then inc(k);
      writeln(a[i],' встретилось ',k,' раз');
    end;
  end;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующую задачу: определяет количество вхождений каждого числа в последовательность. Переменные в коде объявлены следующим образом:

N - максимальное количество чисел в последовательности (в данном случае 10);
a - массив для хранения чисел;
i, k, j - счетчики для отслеживания количества вхождений чисел;
flag - флаг, который указывает на то, что текущее число встречается в последовательности. Код начинается с запроса на ввод массива. Затем происходит итерация по каждому элементу массива. В каждой итерации проверяется, повторяется ли текущий элемент в последовательности. Если это так, то переменная flag устанавливается в false, иначе - в true. Если значение flag равно true, то это означает, что текущий элемент встречается в последовательности. В этом случае происходит итерация по всем элементам массива, начиная с i+1 и до 10 (так как мы знаем, что в последовательности не более 10 элементов). Если текущий элемент совпадает с текущим, то переменная k увеличивается на 1. Если совпадений найдено, то выводится сообщение с количеством вхождений текущего элемента. Таким образом, данный код позволяет определить количество вхождений каждого числа в последовательность.