Предмет: Информатика,
автор: pavzva200346
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число кратно 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7.
Количество чисел не превышает 1000. Введённые числа не превышают 30000.
Программа должна вывести одно число - минимальное число кратное 7.
Вводные данные:3, 21, 14, 4
Выходные данные :14
Ответы
Автор ответа:
1
var
n, a : integer;
m : integer := 30000;
begin
write('количество чисел: ');
readln(n);
write('числа: ');
for var i := 1 to n do begin
read(a);
if (a mod 7 = 0) and (a < m) then m := a;
end;
writeln(m);
end.
Похожие вопросы
Предмет: Математика,
автор: znania190
Предмет: Информатика,
автор: nazaroliynyk2009
Предмет: Математика,
автор: Afzalhonn
Предмет: Литература,
автор: mohira1