Напишите программу, которая в последовательности натуральных чисел определяет количество четных чисел, некратных 6 (, < >. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Избранные числа всегда есть. Программа должна вывести одно число. 2. Напишите программу, которая в последовательности натуральных чисел определяет сумму 3-хзначных чисел, оканчивающихся на 7 и среднее значение суммы таких чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести два числа. Если избранных чисел нет, то программа должна вывести «нет». язык программирования PascalABC.

Алгоритм выполнения домашнего задания.
Начало
Взять дневник.
Посмотреть домашние задания.
Распланировать последовательность выполнения заданий.
Распределить время выполнения.
Открыть нужные учебники и тетради.
Начать выполнять домашнее задание.
После их выполнения сложить учебники и тетради в портфель.
Конец.
Алгоритм рецепта приготовления пирога.
Начало.
Налить 250 мл кефира в стакан.
Взять 2 яйца.
Взять 1 стакан муки.
Взять 1 луковицу.
Взять 1 картофелину.
Взять 1 банку консервированной горбуши.
Взять 1/2 ложки гашенной соды.
Смешать в тарелке яйца, кефир, муку, соду.
Замешать тесто.
Нарезать картофель мелкой соломкой.
Половину полученного теста вылить в форму для запекания.
Выложить на него картофель.
Обжарить лук до прозрачности.
Разминаем горбушу.
Кладем ее вместе с луком к картофелю. 
Заливаем полученное второй половиной теста.
Разогреваем духовку до 180 градусов.
Выпекаем 40 минут.
Зубочисткой проверяем готовность пирога.
Конец.
Алгоритм мытья посуды.
Начало.
Берем губку.
Наносим на нее моющее средство. 
Грязную посуду складываем в раковину.
Протираем губкой посуду.
Включаем воду.
Смываем ею моющее средство с посуды.
Складываем чистую посуду в шкаф.
Конец.
Алгоритм путешествия Колобка в известной сказке.
Начало.
Уйти от бабушки с дедушкой.
Встретить зайца.
Уйти от него.
Встретить волка.
Уйти от него.
Встретить медведя.
Уйти от него.
Встретить лису.
Поверить лисе.
Оказаться съеденным. 
Конец.

Var
  mas: array[1..9] of integer;
  max, min, i, j, k, n: integer;
begin
  writeln('Массив до перестановки');
  for i := 1 to 9 do
  begin
    mas[i] := random(11) - random(11);
    write(mas[i], ' ');
  end;
  writeln;
  max := mas[1];
  min := mas[1];
  k := 1;
  j := 1;
  for i := 1 to 9 do
  begin
    if mas[i] > max then
    begin
      max := mas[i];
      j := i;
    end;
    if mas[i] < min then
     begin
      min := mas[i];
      k := i;
    end;
  end;
  n := mas[j];
  mas[j] := min;
  mas[k] := n;
  writeln('Масств после перестановки');
  for i := 1 to 9 do
    write(mas[i], ' ');
end.