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