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