Задать вопрос
ИнформатикаИнформатика
24 сентября, 04:37

Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а.

Если таких элементов нет - вывести сообщение с текстом "No solution".

Формат входных данных

На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) - элементы массива.

На второй строке записано целое положительное число a.

Формат выходных данных

Строка, содержащая искомые индексы, либо знадпись "No solution", если таковых нет.

+5
Ответы (1)
  1. 24 сентября, 05:48
    0
    Var

    i, x: integer;

    a: array[1 ... 30]of integer;

    b: boolean;

    begin

    b : = false;

    for i : = 1 to 30 do read (a[i]) ;

    readln (x) ;

    for i : = 1 to 30 do if (a[i] = x) then

    begin

    b : = true;

    write (i, ' ') ;

    end;

    if (b = false) then write ('No solution') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а. Если таких элементов нет - вывести сообщение с ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а. Если таких элементов нет - вывести сообщение с текстом "No solution".
Регистрация Забыл пароль