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

Дан массив, содержащий 70 целых чисел из промежутка [-100;100].Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная запись которого оканчивается цифрой 7.Гарантируется, что в массиве есть хотя бы один положительный элемент, десятичная запись которого оканчивается цифрой 7. const N=70; var a: array [1..N] of integer; i, j, m: integer; begin for i:=1 to N do a[i]:=random(__)-__;