Подскажите пожалуйста решить это))срочно надо
141
ОТВЕТЫ
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.
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.
66
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Shakyutad
Винни-Пуху прислали посылку – K литров мёда. Сначала он ...
2019-01-18 06:26:53
Бахметев
Дан массив x1,.... x100. Найти сумму эелементво массива от ...
2019-01-18 06:22:20
Эразм
Определите значение переменной S после выполнения следующих операторов(ответ запишите ...
2019-01-18 06:20:03
Nimeena
Вычислите сумму чисел Х и У,если Х=А516 , У=3568. ...
2019-01-18 06:19:55