Question

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

Answer 1

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