Поделитесь своими знаниями, ответьте на вопрос:
Напиши программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 10000. Программа должна вывести одно число — минимальное число, оканчивающееся на 3.
готово (Pascal)
Объяснение:
program minimum3;
var
n, i, min, zn: integer;
begin
Write('Введите количество чисел (не более 1000):');
ReadLn(n);
min := 9993;
WriteLn('Введите числа (каждое не более 10000):');
for i := 1 to n do
begin
Write('Введите ',i,' число: ');
ReadLn(zn);
if (zn < min) and ((zn mod 10) = 3) then min := zn;
end;
WriteLn('Минимальное число, окнчивающееся на 3 равно ', min);
end.