Ну вот так, как то. Не уверен только насчет N2 - 3). А так все верно
Program blabla;
const N = 100;
var i, k: integer;
a: array [1..N] of integer;
begin
k:=0;
readln(a);
for i:=1 to N do
if (a[i] mod 2 >< 0) and (a[i-1] mod 2 >< 0) then
k:= k+1;
writeln(k);
end.
Ну это уже смешно)
var
a,b : integer;
begin
readln(a);
readln(b);
if a > b then writeln(a)
else writeln(b);
<span>end.</span>
Задача сделана на языке паскаль, при помощи PaskalPlus
Оформление сделана как студенческой задачи
Если есть вопросы пиши в личку
def maxDigit():
return max(map(int, list(input())))