Помогите Решить Пожалуйста, Третий День Мучаюсь

[Andrey7284]

составить программу определения макс и мин числа в массиве состоящем из 20 чисел. Вычислить разность между макс и мин значением и заменить ею четные элементы массива

 

[gpatron]

//определяем макс и мин элементы масива
max:=a[1];
min:=a[1];
for i:= 2 to 20 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
//вычисляем разность
razn:=max-min;
//заменяем четные элементы разностью
for i:= 1 to 20 do if (a[i] mod 2)=0 then a[i]:=razn;