Question

Даны натуральные числа n, A1,A2,..,An. Выдать на печать номера и значения элементов последовательности A1,A2,..,An, имеющих чётные порядковые номера и являющихся нечётными числами.

Answer 1

var n,i,posmax:integer; max:real; a:array of real; begin