На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей, ведущих из города А в город М и проходящих через город Г?

Объяснение:

а - 1

б = а = 1

д= а = 1

г= б, а , д= 3

в = г= 3

ж= г = 3

е = г+в+ж= 9

и= в+е= 12

к= ж+е= 12

м=е+и+к=12+12+9=31

program average;

const n=10;

var avg:real; //среднее ариф.

   count:integer;//кол-во чисел, превосходящих ср. ариф

   m:array[1..n] of integer; //массив из 10 целых чисел

   i:byte; //счетчик цикла

begin

count:=0; avg:=0;

writeln('Введите в строку 10 чисел');

 for i:=1 to n do begin

  read(m[i]);//считываем в цикле 10 чисел

  avg:=avg+m[i];//подсчитываем сумму элементов  

end;

avg:=avg/10;//вычисляем среднее ариф. значение

 

//перебираем массив в цикле

for i:=1 to n do

    if (m[i]>avg) then count:=count+1;//если элемент массива больше чем ср. ариф, то счетчик таких чисел увеличиваем на 1

 

//вывод на экран требуемого значения

writeln(count);

end.

Объяснение:

попробовал все разъяснить в комментариях к строкам кода

const n=10;

var a:array [1..n] of integer;

i,s,k:integer;

begin

write('Массив: ');

randomize;

for i:= 1 to n do

begin

a[i]:= random(90)+10;

write (a[i]:3);

s:=s+a[i]

end;

writeln;

writeln('Среднее арифметическое элементов массива равно ',s/n);

k:=0;

for i:= 1 to n do

if a[i]>s/n then k:=k+1;

writeln('Количество элементов массива превосходящих среднее арифметическое  равно ',k)

end.

Объяснение:

В цикле:

1) задаём элементы массива

2) выводим их на экран

3) считаем сумму

В цикле:

по условию считаем количество элементов больших среднего арифметического

Вывод результат