tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив целых чисел, в котором
Дан массив целых чисел, в котором есть нулевые элементы. создать массив из номеров этих элементов. pascal
DAVIDUIOP
3 10.09.2019 01:10
1
Ответы
fafafafgaf6262
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
valeriyakolpas1
20.09.2019 15:50
Даны стороны треугольника а,в,с, . определите , является ли треугольник равнобедренным ? сотавьте блок -схему сильно надо буду...
PRO11116
20.09.2019 15:50
Напишите программу для отображения функции в программе pascal abc y=arctg(3x+1.5), на отрезке [-35; 35]....
Dashasvi
03.07.2019 23:40
Ккаким устройствам компьютера относится процессор? к устройствам вывода информации к устройствам ввода информации к устройствам хранения информации к устройствам...
ABCD11111111
17.11.2019 12:37
перевидите единицы измерения информации.12байт-14 бит-2048мб-..байт16200байт-..кб4тб-24гб- 20 ...
jfjjthvhhcj
25.05.2019 03:00
Програма для знаходження середнього арифметичного 7 чисел в мові програмування паскаль. дуже потрібно....
kamilamih
25.05.2019 03:00
5. записать в десятичной системе счисления целое число, если дан его дополнительный код: а) 0101100111000110; б) 1111111011011010. 7. рассчитайте время звучания...
Max04032003
27.06.2019 14:20
Можно ли отредактировать в текставом редакторе отсканированный текст? если да, то что для этого необходимо?...
gek45
13.05.2020 11:25
1.Сколько видов растений произрастает в Баянауле. 2.Назовите растения Баянаула, занесенные в Красную Книгу Казахстана 3. Назовите главных животных Баянаула. 4....
ровно63
13.05.2020 11:25
Выберите все правильные лексические характеристики слова ЗОЛОТОЙ. однозначное стилистически нейтральное неологизм общеупотребительное диалектное ИСКОнно русское...
justnastasyaaa
13.05.2020 11:25
Как рисует автор портрет своей героини-рыжухи. О чем плачут лошади НЕ ИЗ ИНЕТА...
Популярные вопросы
Составить уравнения реакций следующих превращений C-CO2-CaCO3-CaCl2-Ca(NO3)2...
2
) Запишите результат измерения температуры в виде:...
3
Схарактиризуйте розміщеня фінансових установ в Україні....
2
Task 3. Write the negative/question forms and the short answers...
2
1. Найдите синус, косинус и тангенс меньшего острого угла прямоугольного...
1
Составьте сравнительную таблицу мир снежной каролевы мир герды...
2
Постройте изображение предмета в рассеивающей линзе. Охарактеризуйте...
2
В каком из перечисленных случаев совершается механическая работа....
1
Какие общие признаки учитывал человек при одомашнивании животных?...
3
Найти минимумы и максимумы функции по графику...
2
// Внимание! Если программа не работает, обновите версию!
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