• напишите программу которая в последоательности натуральных чисел оределяет минимальное число оканчивающихся на 6. программа получает на вход количество чисел в последовательность, а затем сами числа. в последовательность всегда имеется число, оканчивающтхся на 6. количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число - минимальное, оканчивающтхся на 6. Входные данные 3, 26, 16, 36. Выходные данные 16. Срочно!Помогите!

Ответы 1

  • Var   A,Min,N,i:integer;BeginWrite('N = ');Read(N);i:=1;While Min mod 10 <> 6 do   Begin   Read(Min);   i:=i+1   End;For i:= i to N do    Begin    Read(A);    if A < Min then Min:=A;    End;WriteLn('Min = ',Min);End.
    • Автор:

      woodard
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years