Сколько каких дорог? - Pascal

  1. Здравствуйте,помогите пожалуйста написать код.В городе Новые Васюки на некоторых дорогах введено одностороннее движение. Схема дорог задана в виде весовой матрицы графа, числа обозначают длины дорог. Если длины дорог из пункта А в пункт Б разные, это означает, что есть две разные дороги. Найдите отдельно количество дорог в Новых Васюках с односторонним и двусторонним движением. Входные данные В первой строке вводится количество перекрёстков в Новых Васюках N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – длины дорог между каждой парой перекрёстков. Ноль означает, что дороги между этими перекрёстками нет. Выходные данные Программа должна вывести два числа в одной строке, разделив их пробелом: сначала количество дорог с односторонним движением, потом – количество дорог с двусторонним движением. Примеры входные данные 5 0 2 3 4 0 2 0 5 0 7 3 6 0 8 0 0 0 0 0 0 0 7 0 9 0 выходные данные 5 3


textual

Код к задаче: «Сколько каких дорог? - Pascal»

var
  n,i,j,o,d:integer;
  a:array[1..1000,1..1000] of integer;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do read(a[i,j]);
    for i:=1 to n do
      for j:=1 to n do if a[i,j]>0 then if a[i,j]=a[j,i] then d:=d+1 else o:=o+1;
   writeln(o,' ',d div 2)
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.846 из 5



Похожие ответы
  1. В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?

  1. Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано n точек. Определить, сколько из них находится внутри прямоугольника.

  1. Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров, если ширина рулона k см, а длина 10 метров. Известны так же S1 и S2 – площади дверных и оконных проемов.

  1. Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.

  1. Для школьной столовой нужно купить 155кг крупы. На складе имеются упаковки по 7, 12 и 15 кг. Сколько комплектов упаковок можно составить. Упаковки вскрывать нельзя.

  1. Вычислить сколько простых чисел в диапазоне от 1 до 100. Написать функцию для определения простого числа. Простое число делиться на себя и на 1

  1. Задание: Ввести строку, содержащую цифры и буквы латинского алфавита. Определить, каких букв - гласных или согласных больше. Напечатать встречающиеся гласные и согласные, отсутствующие гласные и согласные (каждую по одному разу).

  1. вводятся по очереди координаты n точек определить сколько из них попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2

  1. Написать функцию, определяющую, какой координатной четверти принадлежит точка с заданными координатами. Используя ее определить, сколько из N точек, заданных случайно, попали в каждую координатную четверть. Где-то с циклом напортачил. Принимает только последнее число.