Предмет: Информатика,
автор: Alinakamisarova
Помогите пожалуйста решить это))срочно надо
Приложения:

Ответы
Автор ответа:
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.
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
Предмет: Алгебра,
автор: Женя2002год