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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0129 Табличка

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

05.06.2012, 02:52
var
   f: text;
   m,n, i,j,c,d,tc, tc1,tc2, naim: integer;
   a,b: array[1..100,1..100] of integer;
   t: array[1..100]of integer;
begin
     assign(f,'input.txt');
     naim:=10000;
     reset(f);
     read(f,n,m);
     for i:=1 to n do
         for j:=1 to m do read(f,a[i,j]);
     close(f);
     for i:=1 to n do
         for j:=1 to m do begin
             if a[i,j]=0 then begin
             for c:=1 to n do
                 for d:=1 to m do begin
                     if a[c,d]=1 then begin
                     tc:=abs(i-c)+abs(j-d);
                     if naim>tc then naim:=tc;
                 end;
                 end;
             b[i,j]:=naim;
             naim:=10000;
             end;
             end;
     assign(f,'output.txt');
     rewrite(f);
     for i:=1 to n do begin
         for j:=1 to m do
             write(f,b[i,j],' ');
         writeln(f);
         end;
     close(f);
     end.
Категория: Pascal | Добавил: shum
Просмотров: 1123 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020