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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0302 Города

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

05.06.2012, 03:04
{$R+}
program z302;
var a:array [1..1000,1..2] of real;
    i,j,n:integer;
    min,max,d:real;
    f:text;
begin
  assign(f,'input.txt');
  reset(f);
  read(f,n);
  for i:=1 to n do
    read(f,a[i,1],a[i,2]);
  close(f);
  max:=0;
  for i:=1 to n do
  begin
    min:=15000;
    for j:=1 to n do
      if i<>j then begin
        d:=sqrt(sqr(abs(a[i,1]-a[j,1]))+sqr(abs(a[i,2]-a[j,2])));
        if d < min then min:=d;
      end;
    if min > max then max:=min;
  end;
  max:=max+0.001;
  assign(f,'output.txt');
  rewrite(f);
  write(f,max:2:2);
  close(f);
end.
Категория: Pascal | Добавил: shum
Просмотров: 1201 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020