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

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