Задать вопрос
20 апреля, 20:37

Задать массив состоящий из 10 случайных чисел в интервале от 1 до 100, записать Затем увеличить элементы в 2 раза и опять записать

+4
Ответы (1)
  1. 20 апреля, 23:26
    0
    program zz1;

    const n = 10; / / задаем количество элементов в массиве

    var i:integer; / / задаем переменную целого типа

    m:array [1 ... n] of integer;

    begin

    for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

    m[i]:=random (101);

    for i:=1 to n do / / выводим полученный массив на экран

    write (m[i],' ');

    writeln; / / переходим на новую строку для вывода ответа

    for i:=1 to n do

    m[i]: = m[i] * 2; / / увеличиваем элементы в два раза

    for i:=1 to n do / / выводим полученный массив на экран

    write (m[i],' ');

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Задать массив состоящий из 10 случайных чисел в интервале от 1 до 100, записать Затем увеличить элементы в 2 раза и опять записать ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3.
Ответы (1)
С помощью генератора случайных чисел на интервале (0,100) получите целочисленный массив, состоящий из 25 элементов"
Ответы (1)
1. В массиве B[5,6], значения элементов находятся в интервале [-25,30]. Подсчитать количество элементов, значение которых кратно 4. 2. В массиве C[6,10], значения элементов находятся в интервале [10,30], найти сумму элементов в 1 строке. 3.
Ответы (1)
Задан массив из 10 случайных целых чисел от 0 до 50. Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива уменьшить в 2 раза.
Ответы (1)
1) Найти сумму нечетных чисел на интервале [-30; 40]. 2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) Найти произведение чисел кратных 11 на интервале [-10; 20]. 4) Последовательно вводятся N чисел. Найти их произведение.
Ответы (1)