Паскаль. Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).

var i,maxk,maxd,r:integer;    a:array[1..30] of integer;begin for i:=1 to 30 do  a[i]:=random(100); maxk:=0; maxd:=0; for i:=1 to 30 do begin  if (a[i] mod 2 = 0) and (a[i]>maxk) then maxk:=a[i];  if (a[i] mod 2 <> 0) and (a[i]>maxd) then maxd:=a[i]; end; r:=maxk-maxd; writeln(r);end.