Определить количество вхождений каждого числа в последовательность - Turbo Pascal (29125)
Формулировка задачи:
Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.
Решение задачи: «Определить количество вхождений каждого числа в последовательность»
textual
Листинг программы
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. Если совпадений найдено, то выводится сообщение с количеством вхождений текущего элемента. Таким образом, данный код позволяет определить количество вхождений каждого числа в последовательность.