Помогите решить)

Ввести массив a1, a2, a3 ... a20. Элементы, на чётных местах, расположить в порядке возрастания, а на нечётных в порядке убывания. У этого сайта нет рейтинга

Question

Информатика

Силантий

13 апреля, 15:59

Помогите решить)

Ввести массив a1, a2, a3 ... a20. Элементы, на чётных местах, расположить в порядке возрастания, а на нечётных в порядке убывания. У этого сайта нет рейтинга

+2

Ответы (1)

Знаете ответ на вопрос?

Ангелина · Answer 1

Var

i, j, p:integer;

a:array[1 ... 20]of integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 20 do

begin

a[i]:=random (20) ;

write (a[i],' ') ;

end;

writeln;

i:=1;

while i<21 do

begin

j:=i;

while j<21 do

begin

if a[i]
begin

p:=a[i];

a[i]:=a[j];

a[j]:=p;

end;

j:=j+2;

end;

i:=i+2;

end;

i:=2;

while i<21 do

begin

j:=i;

while j<21 do

begin

if a[i]>a[j] then

begin

p:=a[i];

a[i]:=a[j];

a[j]:=p;

end;

j:=j+2;

end;

i:=i+2;

end;

writeln ('Измененный массив:') ;

for i:=1 to 20 do write (a[i],' ')

end.