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