Задача про граф Опции

[Kvikvek]

Нуждаюсь в решении этой задачи. kvikvek86@mail.ru
Задана система двусторонних дорог. Найти два города и соединяющий их путь, который проходит через каждую из дорог системы только один раз.

[Ponechka]

Ребята помогите решить две задачки!!!
1.Получить массив X1, X2, …, Xn и найти произведение элементов матрицы; элемент Xi представляет среднее арифметическое положительных элементов в i-й строке матрицы, или равен 0, если положительных элементов не обнаружено.
2.Разработать программу, предполагая заданной матрицу А из 5 строк и 5 столбцов.
Если средне арифметическое элементов C1, C2, …, C7 больше минимального элемента матрицы, уменьшить на величину последнего каждый из элементов C1, C2, …, C7.

[klem4]

1.Получить массив X1, X2, …, Xn и найти произведение элементов матрицы;

у вас задание не ясное, получить МАССИВ, найти произведение элементов МАТРИЦЫ
тут произведение элементов матрицы

Код

uses crt;
var x:array[1..100,1..100] of integer;
     i,j,p,n:integer;
Begin
    readln(n);
    p:=1;
    for i:=1 to n do
      for j:=1 to n do
    begin
         readln(x[i,j]);
         p:=p*x[i,j];
    end;
    writeln('p=',p);
end.

[klem4]

2.Разработать программу, предполагая заданной матрицу А из 5 строк и 5 столбцов.
Если средне арифметическое элементов C1, C2, …, C7 больше минимального элемента матрицы, уменьшить на величину последнего каждый из элементов C1, C2, …, C7.


Если правильно понял условие, то что-то типат того:

Код

uses crt;
const n=5;
     p=7;
     k=7;
var a:array[1..n,1..n] of integer;
   c:array[1..p] of integer;
   i,j,s,min:integer;
   sr:extended;

Begin
  clrscr;
  randomize;
  i:=1;
  j:=1;
  min:=a[i,j];
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          a[i,j]:=random(10);
          write(a[i,j]:2);
          write(' ');
          if a[i,j]<min then
           min:=a[i,j];
       end;
    writeln;
    end;
    writeln;

  s:=0;

  for i:=1 to p do
   begin
      c[i]:=random(11);
      write(c[i]);
      write(' ');
      s:=s+c[i];
   end;
   sr:=s/k;
   writeln;
   writeln('sr=',sr:2:2);
   writeln('a[i,j]min=',min);
 
   if sr>min then
    for i:=1 to p do
     begin
        c[i]:=c[i]+min;
        write(c[i]);
        write(' ');
     end;
     end.

Сообщение отредактировано: klem4 - 19.12.2004 3:46