Дан массив из тридцати элементов. вывести индексы всех элементов, равных по значению а. если таких элементов нет - вывести сообщение с текстом "no solution". формат входных данных на первой строке через пробел записаны целые числа arri (|arri|≤1000) — элементы массива. на второй строке записано целое положительное число a. формат выходных данных строка, содержащая искомые индексы, либо знадпись "no solution", если таковых нет.
Воронбец
2
06.08.2019 19:40
0
Другие вопросы по теме Информатика
Elinasuper18
03.12.2019 19:16
prunsesca005
25.08.2019 16:00
dinelle
25.08.2019 16:00
RIP12548
25.08.2019 16:00
Maxys365
25.08.2019 16:00
markinapolina19
25.08.2019 15:50
katalinatraist
25.08.2019 15:50
Популярные вопросы
- Символіка образів в оповвданні Кортасара Менадидо ть зарубіжна 11 клас...
1 - В зеркале отражается ваза с цветами. Определи, на сколько изменится расстояние...
3 - Скільки сторін у многокутнику, якщо всі його кути рівні і дорівнюють 140°?...
3 - Укладіть пізнавальну загадку (хмаринку слів, кросворд, тощо) під назвою...
1 - (1) Васютка сдвинул свои густые брови, силясь что-то припомнить. (2) Он...
1 - Отметь «х» все предложения, в которых неправильно поставлены запятые....
3 - Почему фотосинтез происходит только в клетках где есть хлоропласты...
3 - Trijst_vien_paz12.png Два перпендикулярных отрезка KM и LN пересекаются...
2 - Зробити морфологічний розбір числівника сімсот сімдесят шість...
3 - Как зависит напряженность электрического поля бесконечной равномерно заряженной...
3
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.