массив это упорядоченный набор данных одного типа, снабженных индексами.
максимальная разность двух элементов достигается тогда, когда один максимален, а другой минимален. значит задача сводится к нахождению максимального и минимального элементов массива и нахождении их разности.
<имя массива>(<индекс>) А(10) [b;e]
e-b наибольшая разность двух чисел
Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.
А где рисунки ?ааа без них не как
Тыква
.........................................,,,,,,,,,......