Помогите пожалуйста! Напишите эту программку ,но только с while.Напишите программку, которая

Помогите пожалуйста! Напишите эту программку ,но только с while.
Напишите программку, которая в последовательности естественных чисел определяет малое число, заканчивающееся на 6. Программка получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, заканчивающееся на 6. Количество чисел не превосходит 1000. Введенные числа не превосходят 30 000. Программка обязана вывести одно число минимальное число, заканчивающееся на 6.

Задать свой вопрос
1 ответ
Var n,k,m,mn: integer;
begin
  write('n = ');  readln(n);
  mn:=30000;
  k:=0;
  while klt;n do
  begin
    read(m);
    if (абс(m mod 10) = 6) and (mlt;mn) then mn:=m;
    k:=k+1;
  end;
  writeln(mn);
end.

n = 5
21 -26 18 -16 35
-26

Злата
спасибо, вы меня так выручили!!!
Дашка Кобыдова
Пожалуйста.
Финченко Регина
можете ещё с одной прграммой помочь?
Егор Чебенов
очень надобно!
Алексей
Вопрос задайте.
Валерия Тепчурина
Помогите пожалуйста написать эту программку с while!Напишите программку, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число количество чисел, кратных 3.
Константин
я уже задала этот вопрос на веб-сайте
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт