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 почему

fhctybq123    2   17.06.2019 22:14    0