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
Оформи подписку
