Question

Напишите программу которая ищет в нем все значения равные введенному числу

Answer 1

Const n=20;
var
a:array[1..n] of integer;
i,j,t,x,i1,i2:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(21);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]<a[j+1] then begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
write('x = ');
readln(x);
i1:=1;
i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]>x then i1:=(i1+i2) div 2+1;
if a[i]<x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then begin 
writeln('Искомый(ые) номер(а) элемента(ов):');
while (i>0)and(a[i]=x) do
i:=i-1;i:=i+1;
while (i<=n)and(a[i]=x) do begin
write(i,' '); i:=i+1; end;
end
else writeln('Элемент не найден');
writeln;
end.
Pascal ABC.

Answer 2

Для написания программы, которая будет искать все значения в списке, равные введенному числу, мы можем использовать язык программирования Python. Вот пример такой программы:

pythonCopy code
def find_equal_values(input_list, target_value):
    found_indices = []
    for i, num in enumerate(input_list):
        if num == target_value:
            found_indices.append(i)
    return found_indices

def main():
    # Пример списка чисел
    numbers = [1, 5, 2, 7, 5, 9, 5, 4]

    try:
        target_number = int(input("Введите число для поиска: "))
        equal_indices = find_equal_values(numbers, target_number)
        if len(equal_indices) > 0:
            print(f"Найдены значения {target_number} в списке по индексам: {equal_indices}")
        else:
            print(f"Значение {target_number} не найдено в списке.")
    except ValueError:
        print("Ошибка: Введите целое число для поиска.")

if __name__ == "__main__":
    main()

Как работает программа:

1. Определяем функцию find_equal_values, которая принимает список чисел и целевое значение, и возвращает список индексов, где найдены равные значения.
2. В функции main, мы определяем список numbers, но вы можете заменить его на свой список чисел.
3. Пользователь вводит число для поиска в списке.
4. Затем мы вызываем функцию find_equal_values, чтобы найти все значения, равные введенному числу, и выводим результат.

Пример вывода программы при вводе числа "5":

lessCopy code
Введите число для поиска: 5
Найдены значения 5 в списке по индексам: [1, 4, 6]

Обратите внимание, что в данном примере предполагается, что пользователь вводит целое число для поиска. Если вам нужны дополнительные проверки или обработка ошибок, вы можете расширить код соответствующим образом.