1) Вывести на экран все элементы массива, стоящие на четных местах.
2) Найти сумму элементов массива, стоящих на нечетных местах.
3) Дан одномерный массив размерностью 15, найти максимальный элемент массива, заменить его числом "0", а затем вывести на экран полученный массив (в строку).
ПАСКАЛЬ

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  a.Where((x,i)->i.IsOdd).Println; // для №1  Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2end.Примерn= 13-2 33 -49 49 50 -48 -11 27 47 10 17 22 3833 49 -48 27 10 22Сумма =90№3begin  var a:=ArrRandom(15,-99,99); a.Println;  a[a.IndexMax]:=0; a.Printlnend.Пример34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -1934 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19