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

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, делящееся нацело на 7. количество чисел не превышает 1000. введенные числа не превышают 30 000. программа должна вывести одно число - минимальное число, делящееся нацело на 7. входные данные: 3 11 14 77 выходные данные: 14 программу надо на паскале.

shabrikovayana · Answer

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