Напишите программку которая в последовательности естественных чисел определяет минимальное

Напишите программку которая в последовательности естественных чисел определяет малое положительное число кратное 5

Задать свой вопрос
Серочкина Алёна
Программка получает на вход кол-во чисел в последовательности а потом сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5
Angelina Balanenkova
Кол-во чисел не превышает 1000. Введённые числа по безусловной величине не превосходят 30 000
Ульяна Лыдина
Программа обязана вывести одно число - минимальное положительное число, кратное 5
Ljubov Habibullena
ЭТО ВСЁ ОДНА Программка
1 ответ
Var
  a, n, i, min: integer;

begin
  min := 30000;
  readln(n);
  for i := 1 to n do
  begin
    readln(a);
    if (a mod 5 = 0) and (a lt; min) then min := a;
  end;
  writeln(min);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт