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

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

Решение:

program Array87;
var
  a : array[1..10] of Integer;
  N,i:Integer;

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

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

  for i:=2 to N do
   if a[i-1]>a[i] then
    begin
     a[i-1]:=a[i]+a[i-1];
     a[i]:=a[i-1]-a[i];
     a[i-1]:=a[i-1]-a[i];
    end;

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

program Array87;

var

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

N,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=2 to N do

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

begin

a[i-1]:=a[i]+a[i-1];

a[i]:=a[i-1]-a[i];

a[i-1]:=a[i-1]-a[i];

end;

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

end.

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

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

program array_87;//pascalABC.net

begin
  var n := 10;
  var a := Arr(5,0,1,2,3,4,6,7,8,9);
  
  var j := n - 1;
  
  while a[0] < a[j] do dec(j);
  
  var temp := a[0];
  
  for var i := 0 to j - 1 do
    a[i] := a[i + 1];
  
  a[j] := temp;
  
  a.Println;//0 1 2 3 4 5 6 7 8 9
end.

program array_87;//pascalABC.net

var n := 10;

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

var j := n - 1;

while a[0] < a[j] do dec(j);

var temp := a[0];

for var i := 0 to j - 1 do

a[i] := a[i + 1];

a[j] := temp;

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

Ответить

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

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

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

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