Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!

Answer 1

program fofgogjoj;
const n=1000;
var
a:array[1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(30000);
end;
min:=a[1];
for i:=1 to n do begin
if ((a[i] div 7)=0) and (a[i]<min) then
min:=a[i];
end;
writeln('Минимальное число, делящееся на 7=',min);
end.

Answer 2

Спасибо! Помог!

Answer 3

не за что