Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а. Если таких элементов нет - вывести сообщение с текстом "No solution". Формат входных данных На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) - элементы массива. На второй строке записано целое положительное число a. Формат выходных данных Строка, содержащая искомые индексы, либо знадпись "No solution", если таковых нет.

Question

Марина Новикова

Информатика

30 января, 19:16

Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а. Если таких элементов нет - вывести сообщение с текстом "No solution". Формат входных данных На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) - элементы массива. На второй строке записано целое положительное число a. Формат выходных данных Строка, содержащая искомые индексы, либо знадпись "No solution", если таковых нет.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Иван Ермолаев · Answer 1

Var

i, x: integer;

a: array[1 ... 30Jof integer;

b: boolean;

begin

b: - false;

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

readln (x);

for i:-1 to 30 do if ai]x) then

begin

b: - true;

write (i, '');

end;

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

end.