СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 25 № 2907

Опишите на русском или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 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.