program sgr;
var
n, i, a, min: integer;
begin
read(n);
min := 32767;
for i := 1 to n do
read(a);
if (a > 0) and (a < min) then
min := a;
end;
if a < 32767 then
write(min)
else
write('Нет положительных чисел, меньших 32767');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program sgr;
var
n, i, a, min: integer;
begin
read(n);
min := 32767;
for i := 1 to n do
begin
read(a);
if (a > 0) and (a < min) then
min := a;
end;
if a < 32767 then
write(min)
else
write('Нет положительных чисел, меньших 32767');
end.