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

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

Решение:

program Array88;
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:=N-1 downto 1 do
   if a[i]>a[i+1] 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 Array88;

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:=N-1 downto 1 do

if a[i]>a[i+1] 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 можно посмотреть здесь.

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

olegst1975

11.04.2016 в 00:39

Строка 18 — знак в другую сторону(«больше»)

Ответить
- Anton
  
  11.04.2016 в 10:34
  
  Поправил.
  
  Ответить
Алексей

10.10.2016 в 12:39

а можеш перевести на базик?

Ответить
- Anton
  
  10.10.2016 в 14:01
  
  В какой Basic(название компилятора)? Хотя это единственный язык программирования который я не недолюбливаю. 🙂
  
  Ответить
- Anton
  
  11.10.2016 в 08:57
  
  В общем не дождался ответа вот на Visual Basic
  http://coolcode.ru/reshaem-zadachi-abramyan-na-visual-basic-array88/
  
  Ответить

program array_88;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1,2,3,4,5,6,7,8,9,0);
  
  var j := 0;
  
  while a[n - 1] > a[j] do inc(j);
  
  var temp := a[n - 1];
  
  for var i := n - 1 downto 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_88;//pascalABC.net

begin

var n := 10;

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

var j := 0;

while a[n - 1] > a[j] do inc(j);

var temp := a[n - 1];

for var i := n - 1 downto j + 1 do

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

a[j] := temp;

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

end.

Ответить

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

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

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

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