Var n,min,i:integer;a:array[1..100] of integer; begin read(n); for i:=1 to n do readln(a[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; writeln(min); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
