Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введеные числа не превышают 30 000.

программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Завтра Гиа помогите!

Question

Информатика

Шура

23 мая, 23:03

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введеные числа не превышают 30 000.

программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Завтра Гиа помогите!

+3

Ответы (1)

Знаете ответ?

Самбила · 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:=a[i];

end;

writeln ('Минимальное число, делящееся на 7=', min) ;

end.