10 класс Pascal ABC Дан целочисленный массив из 30 элементов, все элементы...

Question

10 класс
Pascal ABC
Дан целочисленный массив из 30 элементов, все элементы которого-неотрицательные числа, не превосходящие 10 000

---

Answer 1

Min:=1000;
for i:=1 to N do if a[i]if min=1000 then writeln('Таких чисел нет')
else writeln(min);