Дан целочисленный массив из 30 элементов, все элементы которого –неотрицательные числа, не превосходящие 10000.опишите на языке или на одном из языков программирования ал- горитм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «таких чисел нет». исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. паскаль естественный язык constn=30; vara: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); end. объявляем массив aиз 30элементов. объяв- ляемцелочисленные переменные i, j,min. в цикле от 1 до 30 вводимэлементы массива aс 1-го по 30-й. в качестве ответа вам необходимо фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. вы можете записать ре- шение также на другом языке программирования (укажите название и используемую версию языка программирования, например, borland pascal 7.0) или в виде блок-схемы. в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке)
const N=5;
var a: array [1..N] of integer;
i, j, min: integer;
begin
for i:=1 to N do readln(a[i]);
min:=10000;
for i:=1 to N do if (a[i] div 100<>0) and (a[i]<min) then min:=a[i];
writeln(min);
end.