Напишите программу, которая в последовательности - вопрос №7484526 от dolback 10.11.2022 23:33

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется положительно число, делящееся нацело на 5. количество чисел не превышает 100. введенные числа по абсолютной величине не превышают 30 000. программа должна вывести одно число - минимальное положительно число, кратное 5. входные данные: 4 -5 10 6 25 выходные

dolback · Answer

Var   A,Min:integer;   N:byte;BeginMin:=30001;Read(N);For N:= 1 to N do    Begin    Read(A);    if (A 0)and(A mod 5 = 0)and(A Min) then Min:=A;    End;Write(Min)End....