3. дан массив а, состоящий из 11 элемента. найти и отпечатать наименьший из его положительных элементов, предполагая, что они есть среди элементов массива.
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.
Var A:Array[1..100] of Word; N,Max_S,i,I_max:Byte; Function Sum_of_figures(p:Word):Byte; var d:Word; S,j:Byte; begin d:=10000; S:=0; For j:=1 to 5 do begin S:=S+(p div d); p:=p mod d; d:=d div 10; end; Sum_of_figures:=S; end; Begin Randomize; Write('N= '); Readln(N); Writeln; Writeln('Initial array:'); For i:=1 to N do begin A[i]:=Random(65535); Write(A[i]:8); end; Writeln; Writeln; Writeln('Sums of figures:'); Max_S:=0; For i:=1 to N do begin Write(Sum_of_figures(A[i]):8); If Sum_of_figures(A[i])>Max_S then begin Max_S:=Sum_of_figures(A[i]); I_max:=i; end; end; Writeln; Writeln; Writeln('Maximal sum of figures (',Max_S,') has the element N',I_max,' equal to ',A[I_max]); Readln; End.
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.