Дан массив из 30 частей. Вывести индексы всех частей, равных по

Question

Дан массив из 30 частей. Вывести индексы всех частей, равных по

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

Задать свой вопрос

Светлана
Информатика
2019-10-27 22:44:59
4
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Приведите образцы постоянных признаков существительного

Какие требования к прорастанию полевых культур выдвигает агротехника?

Что больше четыре пятых либо 0 целых девять 10-х

Куда вставлять wenn или als? 1. ..... wir und gestern gesehen

Предложения со словом тополь

Масса одного кубометра стали равна 7 4/5 кг. Найдите массу стального

Тело движется прямолинейно с постоянным ускорением. Какая величина, описывающая движение этого

Составте предложение: swimming/ of/ I/ a/ bit/ and/ windsurfing/ do.

Найти местное время в последующих городках-Москва,Якутск,Анады если в Якутске 12:00

В прямоугольной трапеции базы=5см и 17см,а боковая сторона 13 см.отыскать высоту

Артемий Шеверев · Answer 1 · 2019-10-27 22:49:21+3:00

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.

О проекте

Дан массив из 30 частей. Вывести индексы всех частей, равных по

Добро пожаловать!