var m, i: integer; Mas: array [1..10] of integer; begin ...

Motes

var m, i: integer; Mas: array [1..10] of integer; begin mas[1]:=15; mas[2]:=10; mas[3]:=12; mas[4]:=6; mas[5]:=5; mas[6]:=14; mas[7]:=9; mas[8]:=17; mas[9]:=25; mas[10]:=11; m:=mas[1]; for i:=2 to 10 do if Mas[i] < m then m:= Mas[i]; write(m) end. ответ 5 почему