Вцелочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. нужно заполнить массив при команды random

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-3,3); a.Println;
  var s:=a.Select((x,i)->(x,i)).Where(t->t[0]=0).ToArray;
  if s.Length>0 then begin
    var b:=ArrGen(s.Length,i->s[i][1]+1).ToArray;
    b.Println(',')
    end
  else Writeln('Нет нулевых элементов')
end.

Пример
n= 20
1 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -1
3,6,11

1) 1 Кбайт

Объяснение:

Для 8-битного кода один символ займет 1 байт (1 байт = 8 бит).

Для 16-битного кода, на каждый символ тратится 2 байта - это в 2 раза больше, чем для 8-битного.

Пусть количество символов в коде было х.

Тогда исходный 8-битный код занимал х байт.

После увеличения словаря до 16-битного кода, сообщение увеличилось в объёме на 1024 и стало занимать

(х+1024) байт,  

в то же время количество символов осталось тем же, а на 1 символ тратится уже 2 байт, поэтому объём сообщения можно записать как

2х. Получаем уравнение

х+1024=2х

х=1024 байт

ответ: объём исходного кода был 1024 байт= 1 Кбайт

1) ответ: 12

a 1 2 3

b 1 2 4

2) ответ: i = 30

3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.

3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02

4) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.

Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.

5) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.