Регистрация
zeynab122
16.12.2020 20:42
Информатика
Есть ответ 👍

Информатика, 9 класс, графы

268
410
Посмотреть ответы 3

Ответы на вопрос:

tolkov05
tolkov05
4,5(9 оценок)

правильный ответ снизу я лоханулся пока считал

gvg1971
gvg1971
4,6(93 оценок)

8 путей, а на втором 12

Объяснение:

zurkus112
zurkus112
4,7(87 оценок)
Const  n = 15; var  a, b: array[1..n] of integer;   i, j, step, t: integer;   flag: boolean; begin  randomize;   writeln('исходные элементы массива');   for i : = 1 to n do  begin      a[i] : = random(10) - 5;       write(a[i]: 4)  end;   { сортируем массив (метод шелла) }  step : = n div 2;   while step > 0 do   begin      for j : = n - step downto 1 do       begin          i : = j;           while i < = n - step do           begin              if a[i] > a[i + step] then              begin                  t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t              end;               i : = i + step          end      end;       step : = step div 2  end;   {  проходим по массиву и если элемент встречается более одного раза подряд,  переносим его в другой массив  }  j : = 0; t : = a[1]; flag : = false;   for i : = 2 to n do  begin      if (a[i] = t) and (not flag) then      begin          j : = j + 1; b[j] : = t; flag : = true      end      else begin flag : = false; t : = a[i] end  end;   writeln;   writeln('отобранные элементы массива');   for i : = 1 to j do write(b[i]: 4);   writelnend.тестовое решение: исходные элементы массива  -2    4    1  -3  -1  -2  -5  -1    2    4    1    3  -5  -2  -3отобранные элементы массива  -5  -3  -2  -1    1    4

Популярно: Информатика