Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 04:51Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0344 Ближайшие точки

Скачать файл можно после просмотра рекламы:

04.06.2012, 18:21
var
n, i, j, c : longint;
a, b : array [1..100000] of longint;
procedure QuickSort( L, R : longInt );
var i,j,z : longint; x,y : longint;
begin
i := l; j := r;
x := a[(l+r) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if ( i <= j ) then
begin
y:=A[i]; a[i]:=a[j]; a[j]:=y;
z:=b[i]; b[i]:=b[j]; b[j]:=z;
inc(i); dec(j);
end;
until (i > j);
if (l < j) then QuickSort(l,j);
if (i < r) then QuickSort(i,r);
end;
begin
275
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(n);
for i:=1 to n do
begin read(a[i]); b[i]:=i end;
QuickSort(1,n);
c:=maxlongint;
for i:=1 to n-1 do
if a[i+1]-a[i]<c then
begin c:=a[i+1]-a[i]; j:=i end;
writeln(c);
write(b[j],' ',b[j+1]);
close(output)
end.
Категория: Pascal | Добавил: shum
Просмотров: 1554 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020