Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует

0
Ответы (1)
  1. 11 июня, 06:10
    0
    var a: array[1 ... 100] of integer;

    b: array[1 ... 100] of byte;

    i, j: integer;

    begin

    randomize;

    for i : = 1 to 100 do a[i] : = random (100);

    for i : = 1 to 100 do if a[i] = 0 then begin

    j : = j + 1;

    b[j] : = a[i];

    end;

    writeln ('Индексы нулевых элементов массива');

    for i : = 1 to j then write (b[i]:3);

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Если при наборе текста все буквы отображаются прописными то это означает что нажатие клавиша 1. Num Lock 2. Caps Lock 3. F1
Ответы (1)
как открыть командную строку
Ответы (1)
Сканируется цветное изображение размером 25X25 см. Разрешающая способность сканера 300X300 dpi, глубина цвета-3 байта. Какой информационный объём будет иметь полученный графический файл.
Ответы (1)
Найти сумму целочисленного массива В, состоящего из 15 элементов
Ответы (1)
Выберите (отметьте галочкой) параметры, устанавливаемые при задании параметров страницы: ориентация стиль размер шрифта размер бумаги номера страниц поля междустрочные интервалы отступы выравнивание абзацев начертание
Ответы (1)
Укажи целое, частью которого является указанный объект. а) Окно - Дом_ Клавиша - Клавиатура_ Экран _ Телевизор, компьютер Системный блок - Компьютер Буква "Б" буква "В" б) Придумай объекты и заполни схему - часть -
Ответы (1)
Число страниц в книге 570, чисо строк на странице 77, число символов на строке 65. Определите объем информации в Мбайтах?
Ответы (1)
2. Книга написана с помощью алфавита, содержащего 512 символов. Она содержит92 страниц по 70 строк на странице и 64 символа в строке. Сколько дискет 3,5 дюйма понадобится для записи этой книги?
Ответы (1)
Определите, какие из следующих моделей являются информационными, а какие натурными. Математическая формула Манекен Муляж Сборочный чертёж Оглавление книги Блок-схема алгоритма Авиамодель Эталон метра Программа телепередач Схема метрополитена Карта
Ответы (1)
Решите уравнения: а) А + В + (В - > (С + D)) = 0; б) (А - >С) + ВА + D=0; в) (А+С) - -> (В + С + D) = 0; г) (А - > С) + В С • А + D = 0; д) ((В + С) А) - > ((А+С) + D) = 0; е) (А - >С) (А - >С) (А--> (С В D)) = 1.
Ответы (1)