Дан массив А размерности n. Сформировать массив С по следующему правилу: С[i] = максимальному из пары соседних нечетного и четного элементов массивов А. Например из А[1 3 9 6 7 3 0 2] получить C [3 9 7 2].

Var ar:array[1 ... 8] of integer;

ar2:array[1 ... 4] of integer;

i:integer;

begin

randomize;

writeln ('First array:');

for i:=1 to 8 do

begin;

ar[i]:=random (10);

write (ar[i]:4);

end;

i:=0;

repeat

i:=i+2;

if ar[i-1]>ar[i] then

ar2[i div 2]:=ar[i-1]

else

ar2[i div 2]:=ar[i];

until i=8;

writeln;

writeln ('Final array:');

for i:=1 to 4 do

write (ar2[i]:4);

end.