Задания
Версия для печати и копирования в MS WordОпишите на русском или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечётные элементы).
Решение.
Спрятать критерииConst N = 30;
Var a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i:=1 to N do readln(a[i]);
MaxEv :=0;
MaxOdd :=0;
For I :=1 to N do
if (a[I] mod 2 =0 ) then
begin
if a[I] >= MaxEv then
MaxEv :=a[I]
end
else
if a[I] >= MaxOdd then
MaxOdd :=a[I];
Writeln (MaxEv - MaxOdd);
end.

