С клавиатуры вводетьмя массиа из n целых чисел, составить программу и вывести на экран все элементы массива. которые стгят на не четных номерах и найти их сумму.

Program Solution;

Const

N = 10;

Var

A:Array[0 ... N] Of Integer;

i, k:Integer;

Begin

k:=0;

Randomize;

{Заполняем случайно массив}

For i:=0 To N Do

Begin

A[i]:=Random (89) + 10; {числа в 10 ... 99}

Write (A[i],' ');

End;

WriteLn;

WriteLn ('New Array');

{Выводит сначала четные числа}

For i:=0 To N Do

If A[i] Mod 2 = 0 Then

Write (A[i],' ');

{Потом нечетные}

For i:=0 To N Do

If A[i] Mod 2 = 1 Then

Write (A[i],' ');

ReadLn;

End.