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

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

Задать свой вопрос
Василиса Гарьиц
Забыл(а) добавить вопрос
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] gt; 26 then     
n := n + 1 
end; 
writeln(n);
end.

Ответ
7
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт