Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а. Если таких элементов нет - вывести сообщение с текстом "No solution". Формат входных данных На первой строке через пробел записаны целые ч...
Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а.
Если таких элементов нет - вывести сообщение с текстом "No solution".
Формат входных данных
На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) — элементы массива.
На второй строке записано целое положительное число a.
Формат выходных данных
Строка, содержащая искомые индексы, либо знадпись "No solution", если таковых нет.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы