3. Напишите код программы, которая будет генерировать случайные числа и заполнять ими 20 элементов массива D, после

Магия_Моря

45

Задача 3:
Приведенный ниже код на языке Паскаль решает задачу генерации случайных чисел и заполнения ими массива D из 20 элементов. После заполнения массива, числа выводятся на экран.

pascal

program RandomArray;



var

  i: integer;

  D: array[1..20] of integer;



begin

  Randomize; // Инициализируем генератор случайных чисел



  // Заполняем массив случайными числами

  for i := 1 to 20 do

  begin

    D[i] := Random(36); // Генерируем случайное число от 0 до 35 и добавляем его в массив

  end;



  // Выводим элементы массива на экран

  for i := 1 to 20 do

  begin

    Write(D[i], " ");

  end;

  

  Readln;

end.

Здесь мы используем встроенную функцию `Random` для генерации случайных чисел от 0 до 35. Функция `Randomize` используется для инициализации генератора случайных чисел. Затем мы перебираем элементы массива и заполняем их случайными числами. После заполнения массива, выводим все его элементы на экран.

Задача 4:
Следующий код на языке Паскаль решает задачу вычисления суммы элементов одномерного массива B размерности 10, учитывая только те элементы, которые больше 8 и кратны 5.

pascal

program ArraySum;



var

  i, sum: integer;

  B: array[1..10] of integer;



begin

  sum := 0;



  // Заполняем массив B случайными числами от 0 до 100

  for i := 1 to 10 do

  begin

    B[i] := Random(101); // Генерируем случайное число от 0 до 100 и добавляем его в массив

  end;



  // Вычисляем сумму элементов массива, удовлетворяющих условию

  for i := 1 to 10 do

  begin

    if (B[i] > 8) and (B[i] mod 5 = 0) then

    begin

      sum := sum + B[i];

    end;

  end;



  Write("Сумма элементов массива B, больших 8 и кратных 5: ", sum);

  

  Readln;

end.

Здесь мы используем циклы для заполнения массива `B` случайными числами и вычисления суммы элементов массива, которые больше 8 и кратны 5. Затем выводим полученную сумму на экран.