Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности...
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
Гость
Ответ(ы) на вопрос:
Гость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]