Var i, n: integer; ves: array[1..14] of integer; begin ves[1]: = 25; ves[2]: = 21; ves[3]: = 23; ves[4]: = 28; ves[5]: = 30; ves[6]: = 25; ves[7]: = 31; ves[8]: = 28; ves[9]: = 25; ves[10]: = 28; ves[11]: = 30; ves[12]: = 27; ves[13]: = 26; ves[14]: = 24; n : = ves[1]; for i : = 1 to 14 do if ves[i] < n then begin n : = ves[i]; end; writeln(n); end. объясните !
заполняем массив числами
затем присваиваем минимальное значение первому элементу
после этого проверяем, есть ли в массиве числа меньше
если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу