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) ;
End.
Ответы (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; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Var k, m, day: integer; Dat: array[1 ... 10] of integer; Begin Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = 3; Dat[4] : = 3; Dat[5] : = 2; Dat[6] : = 2; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 6; Dat[10] : = 6; day:=1; m : = Dat[1];
Ответы (1)
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 ... 10] of integer; Begin Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = 3; Dat[4] : = 3; Dat[5] : = 4; Dat[6] : = 4; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 6; Dat[10] : = 6; day:=1;
Ответы (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)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 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 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа