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

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

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

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

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

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

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

Question

Информатика

Ратибор

8 февраля, 01:28

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

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

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

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

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

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Любаха · Answer 1

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.