Сформировать массив с клавиатуры из N элементов (N - описываем как константу). Найти:

а) произведение.

б) среднее арифметическое всех нечетных элементов массива.

в) максимальный элемент массива.

Выполняем в одной программе.

Const

n=10;

var a:array[1 ... n] of integer;

i, max, p, sr, k:integer;

begin

p:=1;

max:=1;

for i:=1 to n do begin

read (a[i]) ;

p*=a[i];

if odd (a[i]) then begin sr+=a[i]; k+=1; end;

if a[i]>a[max] then max:=i;

end;

write ('P=', p,' Sr=', sr/k:3:2,' max=', a[max]) ;

end.