»

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

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Похожие вопросы
Новое NEW
Особенности получения образования дистанционно

Статьи

Домашнее обучение: плюсы и минусы

Статьи

Основные гуманитарные науки

Статьи

Как научиться программировать?

Информатика

5 причин получить диплом

Статьи

Последние вопросы
Помогите пожалуйста написать Сочинение Овчинникова "победитель'

Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести

Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить

Математика.
Здравствуйте Меня зовут Виталий, я AdOps-аналитик компании  Adfinity.pro Заинтересовал ваш проект obrazovalka.com Думаю сможем увеличить

Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и

Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен

Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза

Математика.
Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,

Разные вопросы.
Облако тегов
астрономия биология водород гравитация древний египет египет история космос марс планеты физика химия
Весь список тегов

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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт