Ответ:
1) 65
2) 9
3)
var mass:array[1..3] of integer;
i:integer;
Begin
mass[0] := 01;
mass[1] := 12;
mass[2] := 200;
for i:= 0 to 3 do
write(mass[i],' ');
End.
Объяснение:
1) В m будет присваиваться значение Dat[k] при условии что оно больше заранее записанного туда.
2) Ну тут вроде как понятно.