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


Задания
Версия для печати и копирования в 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.