Question

3. Дан массив А, состоящий из 11 элемента. Найти и отпечатать наименьший из его положительных элементов, предполагая, что они есть среди элементов массива.

Answer 1

var a:array[1..1000]of longint;
n,i,min:longint;
begin
min:=1000;
read(n);
for i:=1 to n do
begin
read(a[i]);
if (min>a[i])and(a[i]>0) then min:=a[i];
end;
write(min);
end.