Опишите на Паскале метод вычисления разности наибольшего посреди частей,имеющих чётные

Если в нашем распоряжении имеется современная версия PascalABC.Net 3.2, то есть минимум два способа решить такую задачу. Массив мы будем наполнять случайными числами из промежутка [1;98].

1-ый метод - использовать имеющуюся в этой версии паскаля возможность обретать максимумы и минимумы встроенными в язык средствами. Это очень прытко программируется и обычно страхyет от возможных ошибок при написании более детализированных программ.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(30,1,98); a.Println;
  Writeln('D=',a.Where(x-gt;x.IsEven).Max-a.Where(x-gt;x.IsOdd).Max)
end.

Пример
29 52 58 75 13 77 63 13 17 6 67 17 53 51 14 93 83 30 81 17 93 58 13 71 78 96 42 66 4 91
D=3

Второй способ не привязан к упомянутой выше версии языка, т.е. может быть использован в школах, исповедующих "доисторический стиль программирования" ))) Природно, он длиннее и можно будет сопоставить количество строк кода. Метод основан на последовательном переборе элементов массива и одновременном получении максимума посреди четных и нечетных его частей.

const
  n=30;
var
  a:array[1..30] of integer;
  i,a1max,a2max:integer;
begin
  Randomize;
  a1max:=0; a2max:=0;
  for i:=1 to n do begin
    a[i]:=Random(98)+1;
    Write(a[i],' ');
    if a[i] mod 2 lt;gt; 0 then
      begin if a1maxlt;a[i] then a1max:=a[i] end
    else
      if a2maxlt;a[i] then a2max:=a[i]
    end;
  Writeln;
  Writeln('D=',a2max-a1max)
end.

Замечу, что данный вариант программки содержит кусок, в котором школьники (да и не только школьники) часто делают ошибку.
if a[i] mod 2 lt;gt; 0 then
  begin if a1maxlt;a[i] then a1max:=a[i] end
else
  if a2maxlt;a[i] then a2max:=a[i]
Выделенные мной begin и end на 1-ый взгляд не необходимы. Но в этом-то и ошибка!
По правилам языка паскаль когда снутри 1-го if встречается иной if и желая бы один из них неполный, т.е. не содержит else, последний else относится к самому заключительному из if, который без его будет неполным.
Запутанно? Объясню на нашем куске.
Его без этих begin ... end можно разуметь так:

if a[i] mod 2 lt;gt; 0 then
  if a1maxlt;a[i] then a1max:=a[i]
else
  if a2maxlt;a[i] then a2max:=a[i]

Но можно и так:

if a[i] mod 2 lt;gt; 0 then
  if a1maxlt;a[i] then a1max:=a[i]
  else
     if a2maxlt;a[i] then a2max:=a[i]

И паскаль, как досадно бы это не звучало, разумеет как раз по заключительному варианту. Почему как раз begin ... end решают эту делему. Но... встречается она не очень нередко и о ней живо запамятывают. А позже нарываютcя и не могут понять предпосылки.

Что ж, выбор как решать - за вами!