Juli8022
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблемы как таковой - нет.. просто это всего лишь одна задача из 10)) Пока решила остальные.. поэтому такое чувство, что я все слова в первый раз вижу.. Вот.
Но все равно, спасибо.. с массивом уже почти все)))
Добавлено:
uses crt;
var a:array[1..1000] of integer;
n,i,j,k,imn,p,x:integer;
f,g:text;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
if n mod 2=0 then k:=n div 2
else k:=n div 2+1;
for i:=1 to k do
begin
imn:=i;
for j:=i+1 to n-i+1 do
if a[j]<a[imn] then imn:=j;
x:=a[imn];
for p:=imn downto i+1 do
a[p]:=a[p-1];
a[i]:=x;
imn:=i+1;
for j:=i+1 to n-i+1 do
if a[j]<a[imn] then imn:=j;
x:=a[imn];
for p:=imn to n-i do
a[p]:=a[p+1];
a[n-i+1]:=x;
end;
for i:=1 to n do
write(g,' ',a[i]);
close(g);
end.
Вот примерно.. только 2 тест не идет.. |
