Question

Дан целочисленный массив из 50 элементов. Элементы могут принимать значение от 0 до 100 000. Допишите на алгоритмическом языке программу, которая находит и выводит минимальный среди четырехзначных элементов массива, не делящихся на 7. Если таких элементов нет, то вывести -1. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них

нач
целтаб а[1:50]
цел i, j, m
нц для i от 1 до 50
ввод а[i]
кц
.........

кон

Answer 1

нач

целтаб а[1:50]

цел i, m

m := 100000

нц для i от 1 до 50

если (a[i] > 999) и (a[i] < 10000) и (a[i] mod 7 ≠ 0) и (a[i] < m) то

m := a[i]

кц

если (m = 100000) то

вывод -1

иначе

вывод m

кон