Дан массив, содержащий 30 целых чисел. элементы массива могут принимать целые значения от 0 до 1000. опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. если такого числа нет то нужно вывести сообщение об этом. const n=30; var a: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); end. паскаль
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
end.