Решу задачу только скажи случайные чисмла какого промежутка?
Вуаля:
1) система поиска организована быстрей удобней.
...
235) можно распечатать, или отправить то что нужно.
...
23423) быстрей и чаще обновляется.
...
<span>1000000) можно дать другу с флэшкой, не в ущерб себе.
))
</span>
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.
Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.
((1 - 4)^2 - 4)^2 - 4 = 21
(((5 + '1') / 3 + '1') / 3) / 3 = 19