Question

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

Answer 1

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.