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

Array72. Дан массив $$A$$ размера $$N$$ и целые числа $$K$$ и $$L$$ ($$1 \leq K \lt L \leq N$$). Переставить в обратном порядке элементы массива, расположенные между элементами $$A_K$$ и $$A_L$$, включая эти элементы.

Решение:

program Array72;
var
  a : array[1..10] of integer;
  N,K,L,i:Integer;

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

  Write('K: ');
  Readln(K);

  Write('L: ');
  Readln(L);

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

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


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

program Array72;

var

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

N,K,L,i:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Write('L: ');

Readln(L);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=K;

while i<=K+(L-K)/2 do

if i<>(L-i+K) then

begin

a[i]:=a[i]+a[L-i+K];

a[L-i+K]:=a[i]-a[L-i+K];

a[i]:=a[i]-a[L-i+K];

i:=i+1;

end

else i:=i+1;

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

end.

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

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

program array_72;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  var (k, l) := (1, 5);
  var (p, q) := (k - 1, l - 1);//перевод в индексы динамического массива - от 0 до N-1
  
  a := a[:p] + a[q:p - 1:-1] + a?[q + 1:];
  
  a.Println;//5 4 3 2 1 6 7 8 9 0
end.

program array_72;//pascalABC.net

var n := 10;

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

var (k, l) := (1, 5);

var (p, q) := (k - 1, l - 1);//перевод в индексы динамического массива - от 0 до N-1

a := a[:p] + a[q:p - 1:-1] + a?[q + 1:];

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

Ответить

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

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

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

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