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

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