На рисунке — схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, К и Л. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город Л?
Const n=20; var a: array[1..n] of integer; i, max, imax, min, imin : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(101)-50; write(a[i],' '); end; writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=2 to n do begin if a[i] > max then begin max:=a[i]; imax:=i; end; if a[i] < min then begin min:=a[i]; imin:=i; end; end; writeln('max=',max,' min=',min); a[imax]:=min; a[imin]:=max; writeln('Измененный массив:'); for i:=1 to n do write(a[i],' '); writeln; end.
Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3. Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.
Поэтому алгоритм должен быть вроде : 1.создаем переменную для хранения суммы 2.3 раза читаем число, прибавляем его к общей сумме. 3.Выводим сумму / 3
Вот и сам код, думаю на Паскале сойдет: begin var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3 for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin var num: integer; //Создаем переменную для хранения текущего числа readln(num); //Считываем его mid := mid + num; //Присваиваем mid значение mid + num (текущее число) end; writeln(mid/3); //Выводим среднее end.
24
Объяснение:
если я правильно посчитал давно не делал