Dianath
6 год назад
Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем самичисла. В последовательности всегда имеется положительно число, делящееся нацело на 5.Количество чисел не превышает 100. Введенные числа по абсолютной величинене превышают 30 000.Программа должна вывести одно число - минимальное положительно число, кратное 5.Входные данные:4-510625Выходные данные:10Программу надо на Паскале.
ОТВЕТЫ
Мара
Oct 24, 2020
var a:array[1..100] of integer;
k,i,Min:integer;
begin
Min:=30001;
write('Введите кол-во чисел ');
Read(k);
For k:= 1 to k do
begin
write('Введите число ');
Read(i);
if (i mod 5 = 0)and(i < Min)and(i>0) then
Min:=i;
end;
Write(' -> ',Min);
end.
565
Смежные вопросы:
