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

Question

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

Answer 1

Для классического варианта Паскаля:
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 2

// 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