Написать программу , которая считает, сколько раз последовательности из 10 чисел встречается введённое с клавиатуры число а.

Var i,k,n: integer;
    a: array[1..10] of integer;
begin
  k:=0;    randomize;
  writeln('число:  '); readln(n);
  writeln('последовательность из 10 элементов');
  for i:=1 to 10 do
  begin
    a[i]:=random(50);
    write(a[i],' ');
    if a[i]=n then k:=k+1;
  end;
  writeln;
  if k>0 then
      writeln('число ',n,' встречается ',k,' раз')
  else
      writeln('числа ',n,' нет в последовательности');
  readln;
end.

4. 23

5. 15

Объяснение:

4.

Построим граф по данным таблицы (смотри картинку)

Рассчитаем длину всех  путей из A в E через C

ACE = 4 + 20 = 24

ABCE = 2 + 2 + 20 = 24

ACBE = 4 + 2 + 18 = 24

ACBDE = 4 + 2+ 15 + 2 = 23

Кратчайший путь A в E через C равен 23

5.

Команды:

1) прибавь b

2) умножь на 2

Программа 11121 переводит 5 в 115

Распишем программу по командам (подставив начальное и конечные числа):

1) 5 + b

1) 5 + b + b

1) 5 + b + b + b

2) (5 + b + b + b) * 2

1) ((5 + b + b + b) * 2) + b = 115

Решим получившееся уравнение:

((5 + b + b + b) * 2) + b = 115

((5 + 3b) * 2) + b = 115

10 + 6b + b = 115

10 + 7b = 115

7b = 115 - 10

7b = 105

b = 105 / 7

b = 15

Проведем проверку (выполнив всю программу):

1) 5 + 15 = 20

1) 20 + 15 = 35

1) 35 + 15 = 50

2) 50 * 2 = 100

1) 100 + 15 = 115

4. 23

5. 15

Объяснение:

4.

Построим граф по данным таблицы (смотри картинку)

Рассчитаем длину всех  путей из A в E через C

ACE = 4 + 20 = 24

ABCE = 2 + 2 + 20 = 24

ACBE = 4 + 2 + 18 = 24

ACBDE = 4 + 2+ 15 + 2 = 23

Кратчайший путь A в E через C равен 23

5.

Команды:

1) прибавь b

2) умножь на 2

Программа 11121 переводит 5 в 115

Распишем программу по командам (подставив начальное и конечные числа):

1) 5 + b

1) 5 + b + b

1) 5 + b + b + b

2) (5 + b + b + b) * 2

1) ((5 + b + b + b) * 2) + b = 115

Решим получившееся уравнение:

((5 + b + b + b) * 2) + b = 115

((5 + 3b) * 2) + b = 115

10 + 6b + b = 115

10 + 7b = 115

7b = 115 - 10

7b = 105

b = 105 / 7

b = 15

Проведем проверку (выполнив всю программу):

1) 5 + 15 = 20

1) 20 + 15 = 35

1) 35 + 15 = 50

2) 50 * 2 = 100

1) 100 + 15 = 115