Какое число получится в результате работы программы?
const a: array [1..8] of integer =(3,8,0,-6,0,-1,-9,3);
var i,k:integer;
begin
k:=abs (a[8]);
for i:=1 to 8 do
if abs (a[i]> k then k:=abs(a[i]);
write (k)
end.

К сожалению, у нас пока нет статистики ответов на данный вопрос, но мы работаем над этим.