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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0125 Цветной дождь

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

05.06.2012, 02:45
var f: text;
    c, i, j, ec:integer;
    a: array[1..100,1..100] of shortint;
    col: array[1..100] of shortint;
begin
     ec:=0;
     assign(f,'input.txt');
     {I-}
     reset(f);
     {I+}
     if ioresult<>0 then exit;
     readln(f,c);
       for i:=1 to c do
         for j:=1 to c do read(f,a[i,j]);
     for i:=1 to c do read(f,col[i]);
     close(f);
     for i:=1 to c do
         for j:=1 to c do
             if a[i,j]=1 then a[i,j]:=col[j];
     for i:=1 to c do
         for j:=1 to c do
             if a[i,j]<>a[j,i] then ec:=ec+1;
     assign(f,'output.txt');
     {I-}
     rewrite(f);
     {I+}
     if ioresult<>0 then exit;
     if ec>0 then
     ec:=ec div 2;
     write(f,ec);
     close(f);
end.
Категория: Pascal | Добавил: shum
Просмотров: 2750 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020