Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет - Turbo Pascal
Формулировка задачи:
Нужна помощь в написании программы для создания и обработки массива
вот условие:
Дана последовательность из n вещественных чисел.Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет.
Буду очень признателен за помощь!
Решение задачи: «Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет»
textual
Листинг программы
const
nmax=100;
var
a: array[1..nmax] of integer;
n,i,x,k: integer;
begin
randomize;
write('Введите размер массива n: ');
readln(n);
write('Введите искомое число x: ');
readln(x);
k:=0;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i],' ');
if a[i]=x then k:=i;
end;
writeln;
if k=0 then writeln('Искомого числа в массиве нет') else
writeln('Номер последнего вхождения числа ',x,' = ',k);
readln;
end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- nmax — максимальное количество элементов в массиве (константа);
- a — массив, в котором будут храниться случайные числа (динамичный массив);
- n, i, x, k — переменные, используемые в цикле и для обработки ввода пользователя;
- randomize — функция, которая инициализирует генератор случайных чисел;
- write — функция, которая выводит текст на экран;
- readln — функция, которая считывает ввод пользователя.
Цель программы — найти номер последнего вхождения заданного числа в массиве. Для этого используется цикл, который проходит по всем элементам массива. В каждой итерации цикла генерируется случайное число и проверяется, равно ли оно искомому числу. Если да, то переменная k принимает значение индекса текущего элемента. После завершения цикла выводится сообщение о том, найдено ли искомое число в массиве или нет.
Пример работы программы:
- Пользователь вводит размер массива n (до 100 элементов).
- Пользователь вводит искомое число x.
- Выводится массив элементов.
- Если искомое число найдено в массиве, то выводится его номер. Если искомое число не найдено, то выводится сообщение
Искомого числа в массиве нет.