Дан массив из 20 элементов. Заполнить его случайными числами из интервала [-15,40] 1....

Question

Дан массив из 20 элементов. Заполнить его случайными числами из интервала [-15,40]
1. Вывести полученный массив на экран в строчку через запятую.
2.Заменить все элементы с четными номерами на первый элемент и вывести полученный массив.
3. Подсчитать количество элементов массива, кратных 4 и вывести это количество на экран

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-15,40); a.Println(',');
  var i:=1;
  while i<=a.Length-1 do begin a[i]:=a[0]; i+=2 end; a.Println;<br>  Writeln('Элементов, кратных 4: ',a.Where(t->t mod 4=0).Count)
end.

Пример
-2,-1,14,36,-14,-14,15,15,35,1,-12,-12,-14,18,-11,32,-11,-5,28,-13
-2 -2 14 -2 -14 -2 15 -2 35 -2 -12 -2 -14 -2 -11 -2 -11 -2 28 -2
Элементов, кратных 4: 2