Задать вопрос
13 ноября, 09:37

Сформировать массив Е из 12 целых чисел

Заполнить случ. от - 3 до 18

Заменить в массиве все четные на 0

Вывести массив

+1
Ответы (1)
  1. 13 ноября, 13:25
    0
    Var e: array [1 ... 12] of integer;

    i, k:Integer;

    Begin

    randomize;

    for i:=1 to 12 do

    begin

    e[i]:=random (21) - 3;

    if (e[i] mod 2 = 0) then

    e[i] : = 0;

    write (e[i],' ') ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформировать массив Е из 12 целых чисел Заполнить случ. от - 3 до 18 Заменить в массиве все четные на 0 Вывести массив ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Задать массив из 10 элементов с пом. генератора случ. Чисел из интервала (10,30). Увеличить каждое число в массиве три раза. Вывести на экран оба массив (результат и исходный) 2. Дано 2 массива из 80 элементов.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50. Сформировать массивы С, В которые содержат: массив В - четные элементы из массива А в порядке их следования в массиве А, массив С - отрицательные элементы массива А в
Ответы (1)
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)
В виде программ: 1 Заполнить массив N числами (N
Ответы (1)