Array 72

[den4ik-tv]

Здравствуйте. Мне нужен исходник рабочей программы задачника pascal array 22.
Дан массив а размера n и целые числа k и l. Переставить в обратном порядке элементы массива с нумерами от k до l включительно.
Задачу нужно решить с помощью динамического массива. У меня цикл делает на 1 шаг больше. В чем у меня ошибка?

 var n := readinteger;
  var a := readarrreal(n);
  var k := readinteger;
  var l := readinteger;
  var x := n - 1;
  for var i := k - 1 to (l - 1)div 2 - 1 do
  begin
    var t := a[x];
    a[x] := a[i];
    a[i] := t;
    x -= 1;
  end;
  a.write;

[Stilet]

Еолки-палки... А что это за паскаль такой?

[den4ik-tv]

Сообщение от Stilet

Еолки-палки... А что это за паскаль такой?

pascalABC.net версии 3
А что вас удивило?

[Stilet]

А что вас удивило?

Все. Я такого паскаля еще не видел.
Ну ладно. Млепота - это мои проблемы.

  
  for var i := k - 1 to ((l - k) div 2) + k do
  begin
    var t := a[i];
    a[l] := a[i];
    a[l] := t;
  end;

[den4ik-tv]

Сообщение от Stilet

Все. Я такого паскаля еще не видел.
Ну ладно. Млепота - это мои проблемы.

  
  for var i := k - 1 to ((l - k) div 2) + k do
  begin
    var t := a[i];
    a[l] := a[i];
    a[l] := t;
  end;

ошибочное решение..(

var n := readinteger;
  var a := readarrreal(n);
  var k := readinteger;
  var l := readinteger;
  var x :=l-1;
  for var i := k - 1 to ((l - k) div 2) + k do
  begin
    var t := a[i];
    a[l] := a[i];
    a[l] := t;
  end;
  a.write;

[Mad_Cat]

хД не зря когда то решебник пилил, динамический сам прикручивай

//Дан массив A размера N и 
//целые числа K и L (1 <= K
//Переставить в обратном порядке 
//элементы массива, 
//расположенные между элементами 
//Ak и Al, включая эти элементы. 
program Array72;
var
a: array [1..10] of integer;
K,L:integer;
temp:integer; // переменная для обмена значениями двух переменных 
N:integer;
i:integer; // счетчик в цикле 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
writeln('Введите K и L '); readln(K);
readln(L);
writeln('Значения массива А');
// формирование исходного массива 
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение 
for i:=1 to (l-k+1) div 2 do
begin
// обмен значениями элементов 
temp:=a[k+i-1];
a[k+i-1]:=a[l-i+1];
a[l-i+1]:=temp;
end;
// вывод результата 
Writeln('Ответ');
Writeln;
Write(' A[]: '); for i:=1 to n do Write(A[i],' ');
end.

[den4ik-tv]

Сообщение от Mad_Cat

хД не зря когда то решебник пилил, динамический сам прикручивай

//Дан массив A размера N и 
//целые числа K и L (1 <= K
//Переставить в обратном порядке 
//элементы массива, 
//расположенные между элементами 
//Ak и Al, включая эти элементы. 
program Array72;
var
a: array [1..10] of integer;
K,L:integer;
temp:integer; // переменная для обмена значениями двух переменных 
N:integer;
i:integer; // счетчик в цикле 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
writeln('Введите K и L '); readln(K);
readln(L);
writeln('Значения массива А');
// формирование исходного массива 
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение 
for i:=1 to (l-k+1) div 2 do
begin
// обмен значениями элементов 
temp:=a[k+i-1];
a[k+i-1]:=a[l-i+1];
a[l-i+1]:=temp;
end;
// вывод результата 
Writeln('Ответ');
Writeln;
Write(' A[]: '); for i:=1 to n do Write(A[i],' ');
end.

Блииин, вообще думать не могу...
Сделай так, что бы можно было вставлять код прямо в паскаль, пожалуйста)

[Mad_Cat]

Сделай так, что бы можно было вставлять код прямо в паскаль, пожалуйста)

А этот че сопротивляется? вставляться не хочет?

[den4ik-tv]

Сообщение от Mad_Cat

А этот че сопротивляется? вставляться не хочет?

Вставлять то вставляет, просто мне не кайф добавлять "динамику" .
И тот цикл все равно выдает ошибочное решение...

[Mad_Cat]

просто мне не кайф добавлять "динамику"

если не в кайф - ветка Фриланс примет вас с распростертыми обьятьями