В массиве найти количество вхождений числа X, индексы первого и последнего вхождений - Free Pascal
Формулировка задачи:
A[i]-массив целых чисел, состоящий из элементов,выбранных случайным образом из диапазона [-5;5]
X- целое число из диапазона [-5;5]. вводится пользователем. Проверка ввода обязательна.
Найти:
Количество вхождений числа Х в массив а[i]
Первое вхождение числа X в массив а[i]. ( индекс)
Последнее вхождение числа Х в массив а[i].(индекс)
Помогите ❤
Решение задачи: «В массиве найти количество вхождений числа X, индексы первого и последнего вхождений»
textual
Листинг программы
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,x,i,j,k,i1,ip:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
begin
a[i]:=-5+random(11);
write(a[i]:4)
end;
writeln;
repeat
write('Ввндите целое число из диапазона [-5;5] x=');
readln(x);
until (x>=-5)and(x<=5);
k:=0;
i1:=0;
ip:=0;
for i:=1 to n do
if a[i]=x then
begin
k:=k+1;
if i1=0 then i1:=i
else ip:=i;
end;
writeln('Количество чисел ',x,'=',k);
writeln('Первое вхождение=',i1);
writeln('Последнее вхождение=',ip);
readln
end.
Объяснение кода листинга программы
- Объявление переменных:
- a: массив для хранения чисел
- n: размер массива
- x: число, которое нужно найти в массиве
- i, j, k: счетчики для обработки массива и поиска числа x
- i1, ip: индексы первого и последнего вхождения числа x
- Заполнение массива случайными числами от -5 до 5 с помощью функции random(11) и присваивания каждому элементу значения -5+random(11).
- Вывод размера массива и заполненного массива на экран.
- Ввод числа x с помощью функции readln().
- Инициализация счетчиков k, i1, ip.
- Поиск числа x в массиве с помощью условного оператора if. При совпадении числа x с элементом массива увеличиваем счетчик k на 1 и присваиваем i1 значение i, если это первое вхождение, иначе присваиваем ip значение i.
- Вывод количества совпадений числа x с массивом (k), первого вхождения (i1) и последнего вхождения (ip).
- Ожидание ввода с помощью функции readln().