Задать вопрос
23 августа, 03:39

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.

+4
Ответы (1)
  1. 23 августа, 06:32
    0
    В результате выполнения данной программы будет напечатано число 5
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «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; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы