Помогите решить. если можно подробно
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; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
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;
Ответы (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)
Задания 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. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа