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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0126 Издевательство

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

05.06.2012, 02:46
var f,t : text;
      n,i,j,a,b,c,l:longint;
      data: array [1..100,1..100] of integer;
      begin
    assign(f,'input.txt');
    assign(t,'output.txt');
    reset(f);
    rewrite(t);
    readln(f,n);
   For i:=1 to n do
   for j:=1 to n do
   read(f,data[i,j]);
   l:=maxint;
    for a:=1 to n-2 do
     for b:=a+1to n-1do
     for c:=b+1 to n do
     if data[a,b]+data[b,c]+data[a,c]<l
     then l:=data[a,b]+data[b,c]+data[a,c];
     write(t,l);
     close(t);
     close(f);
     end.

Категория: Pascal | Добавил: shum
Просмотров: 1909 | Загрузок: 2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020