max1 - индекс максимального четного элемента
max2 - индекс максимального нечетного элемента
Var
mas: array[1..100] Of integer;
max1,max2,j: integer;
Begin
For j:=1 To 100 Do
Begin
mas[j] := random(100);
If j=1 Then max1 := j
Else
If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
If j=1 Then max2 := j
Else
If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
write(mas[j],' ');
End;
writeln;
write(mas[max1],'[',max1,'] - ',mas[max2],'[',max2,'] = ',mas[max1]-mas[max2]);
End.
