1) Вывести ** экран все элементы массива, стоящие ** четных местах. 2) Найти сумму...

Question

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

Answer 1

// 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); // для №2
end.

Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90

№3
begin
  var a:=ArrRandom(15,-99,99); a.Println;
  a[a.IndexMax]:=0; a.Println
end.

Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19