Для нахождения и вывода наименьшего положительного числа, оканчивающегося на цифру 7, из массива, содержащего 70 целых чисел в диапазоне от -100 до 100, можно использовать следующий алгоритм на языке программирования Паскаль:

1. Объявление переменных:
   • Массив для хранения 70 целых чисел.
   • Переменная для хранения наименьшего найденного положительного числа, инициализируем её значением, превышающим возможные значения (например, 101).
   • Переменная для счётчика или индекса.
2. Заполнение массива:
   • С помощью цикла заполните массив случайными числами в диапазоне от -100 до 100.
3. Поиск наименьшего положительного числа:
   • Пройдите по всем элементам массива.
   • Для каждого элемента проверьте, является ли он положительным и оканчивается ли он на цифру 7 (это можно проверить, используя оператор остатка от деления).
   • Если условие выполняется, сравните его с текущим наименьшим положительным числом. Если найденное число меньше, обновите переменную наименьшего числа.
4. Вывод результата:
   • Если наименьшее положительное число осталось неизменным (то есть не было найдено подходящих чисел), выведите сообщение, что подходящих чисел не найдено.
   • В противном случае выведите наименьшее положительное число.

Ниже приведён пример кода на языке Паскаль, который реализует описанный алгоритм:

program FindMinPositiveEndingWith7;

var
    arr: array[1..70] of Integer;
    minPositive: Integer;
    i: Integer;

begin
    // Заполнение массива случайными числами от -100 до 100
    Randomize;
    for i := 1 to 70 do
    begin
        arr[i] := Random(201) - 100; // Генерация числа от -100 до 100
    end;

    // Инициализация переменной для хранения наименьшего положительного числа
    minPositive := 101; // Значение больше 100, чтобы исключить изначально

    // Поиск наименьшего положительного числа, оканчивающегося на 7
    for i := 1 to 70 do
    begin
        if (arr[i] > 0) and (arr[i] mod 10 = 7) then
        begin
            if arr[i] < minPositive then
                minPositive := arr[i]; // Обновление наименьшего положительного числа
        end;
    end;

    // Вывод результата
    if minPositive = 101 then
        WriteLn('Подходящих положительных чисел, оканчивающихся на 7, не найдено.')
    else
        WriteLn('Наименьшее положительное число, оканчивающееся на 7: ', minPositive);
end.

Этот код выполняет все шаги, описанные в алгоритме, и позволяет найти наименьшее положительное число из заданного массива.