Предмет: Информатика, автор: Alinakamisarova

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

Приложения:

Ответы

Автор ответа: casio007001
0
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.
Похожие вопросы
Предмет: Алгебра, автор: gopakana3
Предмет: Математика, автор: daniarer123
Предмет: Русский язык, автор: Аноним
Предмет: Математика, автор: Mirshans