Программа:
var b4:array [1..20] of longint;
i,min,n:longint;
begin
read (n);
min:=100000;
n:=1;
for i:=1 to n do read (b4[i]);
for i:=1 to n do if b4[i]
end;
write (min, ,n);
end.
Блок схему не прикрепить, извини.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.