Дан массив, содержащий 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]: =;
for i:=1 to N do begin
if (a[i]>0) and (a[i] mod 7 =0) and (a[i]< m) then
m:=a[i];
end;
writeln(m)