Пусть дана последовательность a(1), a(2), …, a(n) целых чисел. Найдите среднеарифметическое значение элементов, расположенных между максимальным и минимальным числом этой последовательности (в сумму включить и оба этих числа). C# Очень

ответ:Пример 1. Составить алгоритм запуска программы Paint в ОС Windows 7.

Вспомним из курса информатики 5 класса порядок действий для запуска программы Paint.

Войти в меню «Пуск».

Войти в пункт «Все программы».

Войти в пункт «Стандартные».

Выбрать программу «Paint».

Данный алгоритм в виде блок-схемы имеет следующий вид:

 

Рис. 1. Блок-схема к примеру 1.

 

Составление алгоритмов с ветвлениями

Рассмотрим пример на составление алгоритмов с ветвлениями.

Пример 2. Составьте алгоритм для перехода дороги на светофоре.

Рис. 2. Светофор (Источник).

Возможны следующие ситуации: в тот момент, когда мы подошли к дороге горел красный или зелёный свет. Если горел зелёный свет, то можно переходить дорогу. Если же горел красный свет, то необходимо дождаться зелёного – и уже тогда переходить дорогу.

Таким образом, алгоритм имеет следующий вид:

Подойти к светофору.

Посмотреть на его свет.

Если горит зелёный, то перейти дорогу.

Если горит красный, то подождать, пока загорится зелёный, и уже тогда перейти дорогу.

Блок-схема данного алгоритма имеет вид:

Рис. 3. Блок-схема к примеру 2.

 

Составление циклических алгоритмов

Рассмотрим пример на составление циклического алгоритма. Мы уже несколько раз обсуждали перевод чисел из десятичной системы в двоичную. Теперь пришло время чётко сформулировать этот алгоритм.

Напомним, что его принцип состоит в делении числа на 2 и записей остатков, получающихся при делении.

Пример 3. Составить алгоритм перевода чисел из десятичной системы в двоичную.

То есть, алгоритм будет выглядеть так:

Если число равно 0 или 1, то это и будет его двоичное представление.

Если число больше 1, то мы делим его на 2.

Полученный остаток от деления записываем в последний разряд двоичного представления числа.

Если полученное частное равно 1, то его дописываем в первый разряд двоичного представления числа и прекращаем вычисления.

Если же полученное частное больше 1, то мы заменяем исходное число на него и возвращаемся в пункт 2).

Объяснение:

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.