Задать массив и решить
Var k, m: integer;
Dat: array[1 ... 11] of integer;
Begin
Dat[1] : = 20; Dat[2] : = 25;
Dat[3] : = 19; Dat[4] : = 25;
Dat[5] : = 26; Dat[6] : = 22;
Dat[7] : = 24; Dat[8] : = 28;
Dat[9] : = 26; Dat[10] : = 21;
Dat[11] : = 27;
m : = 0;
for k : = 1 to 11 do
if Dat[k] > 22 then
begin
m : = m + 1
end;
writeln (m)
End.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задать массив и решить Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Var k, m, num: integer; Dat: array [1 ... 10] of integer; begin Dat[1]:=7; Dat[2]:=-8; Dat[3]:=3; Dat[4]:=6; Dat[5]:=-4; Dat[6]:=3; Dat[7]:=5; Dat[8]:=-5; Dat[9]:=7; Dat[10]:=1; num:=1; m:=Dat[1];
Ответы (1)
Var k, m, day: integer; Dat: array[1 ... 7] of integer; Begin Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; day: = 1; m:=Dat[1]; for k:=2 to 7 do begin if Dat[k] < m then begin m:=Dat [k]; day:=k end end write (day) ;
Ответы (1)
Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1] : = 20; Dat[2] : = 25; Dat[3] : = 19; Dat[4] : = 25; Dat[5] : = 26; Dat[6] : = 22; Dat[7] : = 24; Dat[8] : = 28; Dat[9] : = 26; Dat[10] : = 21; Dat[11] : = 27; m : = 0;
Ответы (1)
Объясните, почему он выводит 21, а не 19? Var k, m: integer; Dat: array[1 ... 11] of integer; Begin Dat[1]: = 20; Dat[2]: = 27; Dat[3]: = 19; Dat[4]: = 28; Dat[5]: = 26; Dat[6]: = 22; Dat[7]: = 24; Dat[8]: = 28; Dat[9]: = 26; Dat[10]: = 21;
Ответы (1)
Задания 10 по огэ по информатике 2017 Var k, m: integer; Dat: array[1 ...10] of integer; Begin Dat[1] : = - 7; Dat[2] : = - 8; Dat[3] : = 3; Dat[4] : = 6; Dat[5] : = - 4; Dat[6] : = 3; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 7; Dat[10] : = 1; num:=1;
Ответы (1)
Помогите с ответом
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
23 березня. Класна робота. Приклади№813. 82*67 55*74 78*39 75*34 Задача№815. Маса 1/2 кавуна станоаить 2 кг. 600 г. Яка маа 1/5 кавуна?
Нет ответа
Сравните числа а) 12,15 12,71 б) 0,582 0,59 в) 28,154 28,54 г) дробь 9/100 0,09
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа