Здравствуйте нужна Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — минимальное число, кратное 6 (в тетради письменно)
Perestroika
2
26.12.2020 19:14
2
Другие вопросы по теме Информатика
MargoSimka
20.09.2019 05:00
Azariya
20.09.2019 05:00
dimonbob2005
20.09.2019 05:00
BlaBla552
04.02.2021 09:40
oksanapolio
04.02.2021 09:38
RudiSlav
18.07.2019 06:40
Анастасия31052006
20.07.2019 22:40
vipborisov200
03.10.2019 05:10
Vladisimus
03.10.2019 05:10
Популярные вопросы
- Какая часть внутренней энергии тела изменяется в процессе кипения?...
1 - Горе,горой,земле,глаза,рогох,спине,поясок,траве.проверочное слово записывайте...
2 - Знаки на тему что можно делать в лесу и чего нельзя 5 знаков на каждую тему...
3 - Составить 5 формул соединений с ионной связью, назвать вещества, для двух из...
1 - Укажите дату положение о единой трудовой школе рсфср 1) 30 марта 1917 2) 17...
2 - подключения компьютеров к струйному и лазерному принтерам ....
2 - 1) 2,5% від 80грн (2,5% от 80рублей) 2)8,5% від 34,6 (8,5% от 34,6) и если...
3 - Визначте,яка ознака домінує,якщо від схрещування безрогого (гомозиготного)...
1 - Ұлы ақындардың өлең шумақтары а дан басталу керек...
1 - Сколько вариаций в форель шуберта? ~...
1
Объяснение:
program prog;
var
x,i,n,tmp:integer;
arr:array [1..1000] of integer;
begin
Writeln('Enter n: ');
readln(n);
x:=30000;
Writeln('Enter numbers: ');
for i:=1 to n do readln(arr[i]);
for i:=1 to n do
begin
tmp:=arr[i] mod 6;
if (tmp=0) and (arr[i]<x) then x:=arr[i];
end;
writeln(x);
end.