Найти сколько раз первоначальное число встречается среди набираемых - Pascal ABC
Формулировка задачи:
Ввести одно число и запомнить его. Дальше вводятся 10
чисел. Программа должна найти сколько раз первоначальное число встречается
среди набираемых и номер первого. Например, ввели первое число 5, далее
вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза,
первый раз номер 2".
Решение задачи: «Найти сколько раз первоначальное число встречается среди набираемых»
textual
Листинг программы
const n=10;
var a,b,i,i1,k:integer;
begin
write('Введите число для сравнения a=');
readln(a);
k:=0;
i1:=0;
for i:=1 to n do
begin
readln(b);
if b=a then
if i1=0 then
begin
i1:=i;
k:=1;
end
else inc(k);
end;
writeln('Число ',a,' встречено ',k,' рз.');
if i1>0 then write('первый раз номер ',i1)
end.
Объяснение кода листинга программы
- Переменная n инициализируется значением 10.
- Переменные a, b, i, i1 и k инициализируются целочисленными значениями.
- Пользователю предлагается ввести число для сравнения.
- Переменная k инициализируется значением 0, а переменная i1 - значением 0.
- В цикле for происходит чтение входного числа b.
- Если b равно a, то если i1 равно 0, то устанавливаются значения i1 и k в текущее значение i.
- Если i1 не равно 0, то значение k увеличивается на 1.
- После завершения цикла for выводится сообщение о количестве вхождений числа a.
- Если i1 больше 0, то выводится сообщение о том, что число a было встречено первый раз с номером i1.