Сколько каких дорог? - 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

Код:

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.

Похожие ответы
  1. Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы. Помогите пожалуйста. Очень очень надо

  1. Формат входных данных Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Формат выходных данных Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

  1. Определите, принадлежит ли точка А, заданной координатами (х, y), части плоскости, ограниченной отрезком оси абсцисс от 0 до П и синусоидой y=|sin(2x)|

  1. Помгите пожалуйста. Дан массив А размера N. Сформировать новый массив В того же раз-мера по следующему правилу: элемент Вк равен сумме элементов массива А с номерами от 1 до K.

  1. Дано трехзначное число. Выяснить, является ли оно палиндромом(<<перевертышем>>), то есть таким числом, десятичная запись которого читается слева направо и справа налево. Идея в принципе есть как решать.. Я так понял надо что бы оно проверяло крайние числа.. но как это записать не знаю.. подкиньте идею как это записать?

  1. Нужна помощь в задачке: Сумма прописью. Дано вещественное число r,(0 <= r < 100) с не более чем двумя значащами цифрами после десятичной точки. Считаем, что r обозначает денежную сумму в рублях. Вывести на экран правильно согласованную фразу, обозначающую r, в виде "X рубли Y копеек" (например число 22,21 должно быть выведено в виде "22 рубля 21 копейка").

  1. Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Матрицу вывести в общепринятом виде. Матрица:F(N,M) Условия и ограничения:N ≤20 M ≤10

  1. Задан массив целых чисел. Вывести на экран значения элементов одномерного массива, которые являются кодами латинских букв. решите эту задачку пожалуйстаДобавлено через 1 час 49 минут ап

  1. В одномерном массивеE(A) элементы которого вводятся с клавиатуры, подсчитайте сумму нечетных элементов массива. Сформулируйте новый К(Н), который будет состоять из четных элементов массива Е(Л)


Нашли ошибку?
Развитие проекта
Яндекс.Метрика