IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Задача про граф
сообщение
Сообщение #1


Гость






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


Гость






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


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.10.2021 8:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name