№1)Попытался тут расписать,да сложно было.Эту задачу можно промоделировать вручную на бумаге.Главное не запутаться. Массив изменяется до A[5],далее идёт отражение первой части.Ответ: 3)№2)Тут тоже идёт отражение массива,только в другую сторону. В последний элемент будет записан нулевой и обратно(A[10]=0,A[0]=0), и так далее. В итоге получится ответ под номером 4)№3) В данной программе идёт поиск максимального элемента массива:for k := 1 to 10 do if Dat[k] > m then m := Dat[k]Можно увидеть,что максимальным является 8.Выведет число 8.