Question

Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а.
Если таких элементов нет - вывести сообщение с текстом "No solution".
Формат входных данных

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

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

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.