8) Напишите алгоритм на естественном языке или на одном из языков программирования, который найдет и выведет наименьший

Тема вопроса: Поиск наименьшего элемента массива, оканчивающегося на цифру 7, на языке программирования Pascal

Разъяснение:
Для решения данной задачи на языке программирования Pascal можно использовать следующий алгоритм:

1. Создайте целочисленный массив `arr` с заданными элементами.
2. Объявите переменную `minElement` и инициализируйте ее значением, которое точно превышает все возможные значения массива.
3. Проходите по каждому элементу массива с помощью цикла `for` или `while`.
4. Проверьте, оканчивается ли текущий элемент массива на цифру 7, используя операцию деления по модулю на 10 и операцию сравнения.
5. Если условие выполняется и текущий элемент меньше `minElement`, присвойте `minElement` значение текущего элемента.
6. После окончания цикла проверьте значение `minElement`. Если оно не изменилось, то в массиве нет элементов, оканчивающихся на цифру 7. В этом случае выведите 0.
7. В противном случае выведите значение `minElement`.

Дополнительный материал:

pascal

program FindMinEndingWith7;



const 

  N = 10; // количество элементов в массиве



var

  arr: array[1..N] of integer;

  minElement, i: integer;



begin

  // Задаем элементы массива

  arr := (4, 17, 23, 57, 32, 71, 88, 79, 14, 63);

  

  minElement := 9999; // Значение, большее значения всех элементов массива

  

  for i := 1 to N do

  begin

    if arr[i] mod 10 = 7 then

    begin

      if arr[i] < minElement then

        minElement := arr[i];

    end;

  end;

  

  if minElement = 9999 then

    minElement := 0;

  

  writeln("Наименьший элемент массива, оканчивающийся на 7: ", minElement);

  

end.

Совет: Чтобы лучше понять работу алгоритма, возьмите перо и бумагу и проследите за его выполнением на примере заданного массива.

Закрепляющее упражнение: Напишите алгоритм на языке программирования Pascal, который найдет и выведет наименьший элемент массива, оканчивающийся на цифру 9. Если таких чисел нет, выведите 0. Используйте массив `{13, 25, 39, 47, 55, 62, 73, 88, 91, 105}`.