Вычислить значения обработки массива

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; m : = Dat[1];

for k : = 2 to 10 do

if Dat[k] = m then

begin

m: = Dat[k];

day : = k;

end;

write (day) ;

End.

Question

Информатика

Ион

10 сентября, 23:01

Вычислить значения обработки массива

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; m : = Dat[1];

for k : = 2 to 10 do

if Dat[k] = m then

begin

m: = Dat[k];

day : = k;

end;

write (day) ;

End.

+3

Ответы (1)

Знаете ответ?

Митрей · Answer 1

В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2