Question

Напиши программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.
Количество чисел не превышает 1000. Введённые числа не превышают 10000. Программа должна вывести одно число — минимальное число, оканчивающееся на 3.

Answer 1

Ответ:

готово (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.