anastasiatim4e2
04.06.2020 19:33

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ramil2425
16.08.2020 06:17
Var
   A,Min,N,i:integer;
Begin
Write('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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота