Дан массив А размерности n. Сформировать массив С по следующему правилу: С[i] =...

Question

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

Answer 1

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.