Информатика

Боря

20 апреля, 05:46

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

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.