Var i, n: integer; Ves: array[1..14] of integer; Begin Ves[1]:= 25; Ves[2]:= 21; Ves[3]:=...

Question

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. Объясните задачу!!!

Answer 1

заполняем массив числами

затем присваиваем минимальное значение первому элементу

после этого проверяем, есть ли в массиве числа меньше

если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу