Дан массив из тридцати элементов. вывести индексы - вопрос №6148906 от toyzsr 02.04.2022 04:01

Question

Информатика: Дан массив из тридцати элементов. вывести индексы всех элементов, равных по значению а. если таких элементов нет - вывести сообщение с текстом no solution . формат входных данных на первой строке через пробел записаны целые числа arri (|arri|≤1000) — элементы массива. на второй строке записано целое положительное число a. формат выходных данных строка, содержащая искомые индексы, либо знадпись no solution , если таковых нет.

toyzsr · Answer

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.