Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gggtair2004
25.01.2023 17:24 •
Информатика
Дан массив целых чисел, в котором есть нулевые элементы. создать массив из номеров этих элементов. pascal
Показать ответ
Ответ:
hiraimomorin
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 оценок)
Популярные вопросы: Информатика
софияпрекрасная15
18.07.2021 18:01
Разгадай ребус.Составь предложение с этим словом...
1Ростиславка
23.01.2022 09:16
Напишите 3 закона которые предписывают машинам. (кратко)...
Irakli2007
27.02.2023 17:18
Для чего предназначена область задач в PowerPoint? а)для редактирования слайдов. в)для удобства выбора различных слайдов. с)для создания слайдов презентации. d)для добавлений...
Leo100Danik1
02.03.2023 07:25
1024 кбайт-это 1) 1 кбайт 2) 8 бит 3) 1 мбайт 4) 1 байт 5) 1024 байт...
amolodyka
25.03.2021 07:15
6 сфер комп‘ютерної графіки...
VIDJER
27.11.2021 17:46
Найдите наименьшее общее делимое числа 15,20,45,62,94,112....
abilgaziev1
25.01.2022 05:59
Що таке формула?які формули з курсу математики,фізики ви знаєте?як вони записуються?...
vbnmmkllpuuh
30.01.2021 10:52
ДОМАШНЕЕ ЗАДАНИЕ Знаете, в востребованных - это программа Замените картинки подходящими словами и Составьте рассказ. Путешествие в страну Word. мире создано очень много программ....
Мертвый0Анархист
02.10.2020 19:41
Прочитай два суждения и напиши заключение: идёт дождь; земля мокрая. Заключение: если идёт дождь, земля является...
helpmeplease24
16.08.2021 03:09
Скорость передачи данных через ADSL-соединение равна  бит/c. Какова длительность передачи файла через данное соединение (в секундах), если размер файла  Кбайт? В ответе укажите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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