Массивы в Pascal

[Izymka]

После ввода с клавиатуры одномерного массива целых чисел (в пределах зна-кового целого типа) отобразить отсортированые по убыванию первые k и отсортированые по возрастанию последние k элементов массива/

помогите сделать вторую часть задачи!!!

program n_8;
uses CRT;
const
max=100;
min=-100;

var
m:array[min..max] of integer;
k,j,i,t:integer;
n:byte;
begin
Write('n=');Read(n);Write('k=');Read(k);
for i:=1 to n do
begin
Write('m[',i,']=');Readln(m[i]);
end;
for i:=1 to k-1 do
for j:=1 to k-i do
if m[j+1]>m[j] then
begin
t:=m[j];m[j]:=m[j+1];m[j+1]:=t;
end;
for i:=1 to k do
begin
Writeln(m[i]);
end;
for i:=n+k-1 to n-1 do
 for j:=i+1 to n do
  if m[j]<m[i] then
  begin
t:=m[i];m[i]:=m[j];m[j]:=t;
  end;
for i:=n+k-i to n do
begin
Write(m[i]:8);
end;
end.

вот что у меня получилось! в чем ошибка??

[Chudo4258]

Чет я не понял, по-моему в задании написано надо просто проверить отсортированы или нет. А вы зачем-то еще сортируете. Или я просто не так понял задание?

Вот проверка отсортированы или нет:

program Project2;
const
max=100;
min=-100;

var
m:array[min..max] of integer;
k,i,n:integer;
p:boolean;
begin
Write('n=');Read(n);Write('k=');Read(k);
for i:=1 to n do
begin
Write('m[',i,']=');Readln(m[i]);
end;
p:=true;
for i:=1 to k-1 do
 if m[i]<=m[i+1] then begin p:=false; break; end;
writeln ('pervje k ', p);

p:=true;
for i:=n to n-(k-1) do
 if m[i]<=m[i+1] then begin p:=false; break; end;
writeln ('pasledie k ', p);
readln
end.

[Izymka]

нет, нужно отсортировать! только я не знаю как сделать сортировку последних k элементов!?!

[Ol'ga_new]

Наверное, ошибка в условии цикла:

for i:=n+k-1 to n-1 do

если всего n элементов, зачем прибавлять k.

for i:=k to n-1 do

[Izymka]

Сообщение от Ol'ga_new

Наверное, ошибка в условии цикла:

for i:=n+k-1 to n-1 do

если всего n элементов, зачем прибавлять k.

for i:=k to n-1 do

нет, так будет считать не последнии k что требуется!!

[Ol'ga_new]

Т.е. есть массив из 15 элементов, 5 первых и 5 последних нужно отсортировать, правильно? Тогда условие:

for i:=n-k to n do

что значит проверяем с 10 до 15 элементы!

[Serj_D]

Последние k :
for i:=(n-k+1) to n do

[Chudo4258]

у меня в коде нет никаких ошибок, писал в делфи 7 (кансоль).

for i:=k to n-1 do

этим способом будет перебираться все элементы с к-го и до конца, а надо последние к элементов.

for i:=n-к+1 to n do

перебод последних к элементов, и применяй сэде сортировку.

с 10 до 15 элементы!

тут находятся 6 элементов.

[S_Yevgeniy]

Может вам стоит использовать цикл Repeat until

I:= N;
Repeat

Тут то что вам нужно сравнивать или вычеслять

I:=I-1;

until I<=K;

[Ol'ga_new]

Я смотрела код, который выложила Izymka, по-поводу 6 элементов согласна 100%, только вопрос был не в количестве, а в качестве!
Теперь вопрос возник у меня

for i:=n to n-(k-1) do

работает нормально, я не проверяла, но мне кажется должно быть или

for i:=n dowto n-(k-1) do

или

for i:=n-(k-1) to n do

?????