Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
program fofgogjoj;const n=1000;vara:array[1..n] of integer;i,min:integer;beginrandomize;for i:=1 to n do begina[i]:=random(30000);end;min:=a[1];for i:=1 to n do beginif ((a[i] div 7)=0) and (a[i]<min) thenmin:=a[i];end;writeln('Минимальное число, делящееся на 7=',min);end.