Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
кристина2155
27.08.2021 11:10 •
Информатика
Дан массив целых чисел, в котором есть нулевые элементы. создать массив из номеров этих элементов. pascal
Ответ:
F3ren9d
07.10.2020 04:19
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
b.Println
end.
Пример
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13
0,0
(0 оценок)
Популярные вопросы: Информатика
jru77
24.01.2022 06:13
Яких значень набуде змінна b після виконання умовного оператора Іf, якщо a = 10? if a меньше 5: b = a+1 else: if a меньше 10: b=a*2 else: b = a–1 (Позначте одну правильну...
EveChan
14.03.2020 16:08
Где когда и кем был создан электронный компьютер...
владосик13
12.09.2021 05:52
Дан специальный знак язык Паскаль.Определи его назначение. 1)Используется для именования динамических переменных2)Заключает в себе индесы элементов массивов3)конец...
Ivan1955
12.11.2022 04:28
Каково наибольшее целое число x, при котором истинно высказывание? 1) (90 x•x) → (x (x-1)) 2) (x•x - 1 100) → (x•(x-1) 100) 3) (x•(x+1) x•x + 7) → (x•(x+1) ≤ x•x...
Оарп
12.11.2022 04:28
Дана строка текста. слова в тексте друг от друга отделяются одним пробелом. вставить после каждого слова запятую....
St151
12.11.2022 04:28
Положительные и отрицательные стороны систем компьютерного перевода текстов...
niaz167361
05.12.2020 16:44
решить С подробным решением.Сколько существует различных наборов значений логических переменных x1, x2, ... x9, x10, которыеудовлетворяют всем перечисленным ниже...
Tosya03
13.02.2021 04:57
Что означает фамилия пронина 20 листов...
sasagolyakov
13.02.2021 04:57
Простейшие - представители царства: а грибы, б животные, в растения, г бактерии...
Denis12121210
13.02.2021 04:57
(x²-11)(15-x²)≥0 найдите множество решений неравенства...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
b.Println
end.
Пример
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13