Question

Массив состоит из 100 целых чисел. Найти разность наибольшего четного и наибольшего нечетного элемента массива.
Всё это в Паскале

Answer 1

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.