Решаем задачи Абрамян на Паскале. Array75

Array75. Дан массив размера $$N$$. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами, включая минимальный и максимальный элементы.

Решение:

program Array75;
var
  a : array[1..10] of integer;
  N,Amin,Amax,i:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;


  Amax:=1;
  for i:=1 to N do if a[Amax]<a[i] then Amax:=i;
  Amin:=Amax;
  for i:=1 to N do if a[Amin]>a[i] then Amin:=i;

  if Amin>Amax then
   begin
    Amin:=Amin+Amax;
    Amax:=Amin-Amax;
    Amin:=Amin-Amax;
   end;

   i:=Amin;
   while i<Amin+(Amax-Amin)/2 do
    if i<>(Amax-i+Amin) then
     begin
      a[i]:=a[i]+a[Amax-i+Amin];
      a[Amax-i+Amin]:=a[i]-a[Amax-i+Amin];
      a[i]:=a[i]-a[Amax-i+Amin];
      i:=i+1;
     end
    else i:=i+1;


  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array75;

var

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

N,Amin,Amax,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Amax:=1;

for i:=1 to N do if a[Amax]<a[i] then Amax:=i;

Amin:=Amax;

for i:=1 to N do if a[Amin]>a[i] then Amin:=i;

if Amin>Amax then

begin

Amin:=Amin+Amax;

Amax:=Amin-Amax;

Amin:=Amin-Amax;

end;

i:=Amin;

while i<Amin+(Amax-Amin)/2 do

if i<>(Amax-i+Amin) then

begin

a[i]:=a[i]+a[Amax-i+Amin];

a[Amax-i+Amin]:=a[i]-a[Amax-i+Amin];

a[i]:=a[i]-a[Amax-i+Amin];

i:=i+1;

end

else i:=i+1;

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 1

program array_75;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1,2,3,0,4,5,9,6,7,8);
  
  var iMin := a.FindIndex(t -> t = a.Min);
  var iMax := a.FindIndex(t -> t = a.Max);
  
  if iMin > iMax then Swap(iMin, iMax);
  
  a := a[:iMin] + a[iMax:iMin-1:-1] + a?[iMax+1:];
  
  a.Println//1 2 3 9 5 4 0 6 7 8
end.

program array_75;//pascalABC.net

var n := 10;

var a := Arr(1,2,3,0,4,5,9,6,7,8);

var iMin := a.FindIndex(t -> t = a.Min);

var iMax := a.FindIndex(t -> t = a.Max);

if iMin > iMax then Swap(iMin, iMax);

a := a[:iMin] + a[iMax:iMin-1:-1] + a?[iMax+1:];

a.Println//1 2 3 9 5 4 0 6 7 8

Ответить

Решаем задачи Абрамян на Паскале. Array75

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ