Изменить нужно строку: if a[i]<max
Объяснение:
Но если полностью изменять то еще нужно присвоить максимальное число которое может встретиться в программе то есть
max:=99999999
for i:=2 to 10 do
if a[i]<max then max:=a[i]
Изменить нужно строку: if a[i]<max
Объяснение:
Но если полностью изменять то еще нужно присвоить максимальное число которое может встретиться в программе то есть
max:=99999999
for i:=2 to 10 do
if a[i]<max then max:=a[i]