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]<a[j] then 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.
Порядок неубывания,значит порядок возрастания. 2828 не может,так как если мы введём максимальное число 99999,то будет 2727 2512 не может, так как порядок возрастания,а 25>12 2518 не может, так как порядок возрастания,а 25>18 2524 не может, так как порядок возрастания,а 25>24 2425 может(число 78997) 1825 может(число 72979) 1225 может(число 12979) 123 не может,существует 2 варианта записи этого числа: 1)12 и 3,но такого быть не может,так как 12>3 2)1 и 23,но такого быть не может,так как чтобы получилось 23 должны быть числа больше 7,а 1 получается слева,значит среднее число максимум 1,но нам оно не подходит Итак,подходят 2425,1825,1225 ответ: 3
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]<a[j] then
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.