Question

Записать в массив 100 случайных целых чисел от 22 до 200 и вывести на экран все элементы массива, кратные 5.

Answer 1

// PascalABC.NET 3.0, сборка 1076
begin
  var a:=ArrRandom(100,22,200);
  Writeln('Исходный массив:',#13#10,a);
  Write('Элементы массива, кратные пяти: ');
  a.Where(x->x mod 5 = 0).Println;
end.

Тестовое решение:
Исходный массив:
[109,130,69,32,86,164,37,55,60,140,25,23,111,23,24,125,23,46,50,30,44,112,92,183,87,51,148,200,56,164,154,177,56,200,130,145,53,196,101,198,162,56,155,30,55,144,40,200,188,182,75,119,25,183,148,198,59,86,145,56,37,38,200,96,187,48,167,112,93,80,94,28,146,52,68,188,158,84,150,144,33,149,33,75,110,57,174,73,73,133,107,167,73,66,183,146,57,80,44,28]
Элементы массива, кратные пяти: 130 55 60 140 25 125 50 30 200 200 130 145 155 30 55 40 200 75 25 145 200 80 150 75 110 80

Answer 2

Для классического варианта Паскаля:
Var m : array[1..100] of Integer;
i : Integer;
Begin
  For i:=1 to 100 do
  Begin
    m[i]:=Random(179)+22;
    If m[i] mod 5 = 0 then Writeln(m[i]);
  end;
end.

Answer 3

Чтобы решить эту задачу, вам потребуется следующее: 1. Создать массив, который будет содержать 100 элементов. 2. Заполнить массив случайными целыми числами в диапазоне от 22 до 200. 3. Вывести на экран все элементы массива, которые кратны 5.

Вот код на языке Python, который реализует данную задачу:

import random

# Создаем пустой массив
array = []

# Заполняем массив случайными числами от 22 до 200
for _ in range(100):
    number = random.randint(22, 200)
    array.append(number)

# Выводим на экран элементы массива, кратные 5
for number in array:
    if number % 5 == 0:
        print(number)

При каждом запуске этого кода вы получите разные случайные числа, поскольку они генерируются при помощи функции `random.randint()`.