Question

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

Answer 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]<10 Then   
 begin
m:=m+Tur[k];
end;
Writeln(m);
end.


Ответ: 27.