Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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