Помогите пожайлуста)

Question

Помогите пожайлуста)

---

Comments

Забыл(а) добавить вопрос

Answer 1

Var  Ves: array[1..14] of integer; 
i, n: 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 := 0; 
for i := 1 to 14 do   begin   
if Ves[i] > 26 then     
n := n + 1 
end; 
writeln(n);
end.

Ответ
7