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.

Question

Вероника

7 августа, 12:25

+3

Ответы (1)

Знаете ответ на вопрос?

Косьма · Answer 1

В результате выполнения данной программы будет напечатано число 5

Var k, m, day: integer;Dat: array[1 ... 7] of integer;BeginDat[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 beginif Dat[k] < m then beginm:=Dat [k]; day:=kendendwrite (day) ;End.