Const
N = 30;
Var
a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i := 1 to N do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
MaxEv := 0;
MaxOdd := 0;
For I := 1 to N do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}
MaxEv := a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}
Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);
end.
5
Объяснение:
Здесь также же петрушка,что и подобное задание, разница лишь в условии. Здесь перемещение должно происходить тогда, когда последняя цифра а[i] равняется всему числу а[0].массив такой:
8, 3, 16, 24, 35, 18, 4, 72, 8, 99, 44
И смена мест происходит не а0 с аi, а аi c a(i+1), т.е а0 никак не меняется.
Кароче, дашло до 18 при а5 и поменялся массив так:
8, 3, 16, 24, 35, 4, 18, 72, 8, 99, 44
Теперь смотрим: а6 тоже заканчивается на 8, значит трансформируем массив опять:
8, 3, 16, 24, 35, 4, 72, 18, 8, 99, 44
И опять он встал на нашем пути. И так будет до конца массива. И это случится действительно 5 раз.