50 баллов.Напишите программу, которая в последовательности ...
50 баллов.Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 13. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 13. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - минимальное число, кратное 13. Входные данные 3, 130, 25, 169. Выходные данные 130. (чтобы её можно было запустить в паскаль)
Есть ответ
12.12.2022
475
Ответ
Ответ:
Var i,c,count,min:integer;
Begin
Read (count);
Min:=30000;
For i:=1 to count do
Begin
Read(c);
If c < min and c mod 13 = 0 then
Min:= c;
End;
Write(min);
End.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
