Помогите пожалуйста решить это))безотлагательно надобно

Помогите пожалуйста решить это))безотлагательно надобно

Задать свой вопрос
1 ответ
Program massive;
var k,m:integer;   
Tur:array[1..11] of integer;
begin   
Tur[1]:=1;Tur[2]:=11;   
Tur[3]:=8;Tur[4]:=12;   
Tur[5]:=5; Tur[6]:=6;   
Tur[7]:=15;Tur[8]:=16;   
Tur[9]:=16; Tur[10]:=21;   
Tur[11]:=7;m:=0; 
 For k:=1 to 11 do   
if Tur[k]lt;10 Then   
 begin
m:=m+Tur[k];
end;
Writeln(m);
end.


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


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

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

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

Войти на сайт