Max:=1; min:=1;
for k:=2 to n do begin
if a[k]>a[max] then max:=k;
if a[k] < a[min] then min:=k
end;
writeln ('max=', a[max]);
writeln ('min=', a[min]);
if max < min then writeln ('max раньше')
else writeln ('min раньше')
в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
1) Шифр Цезаря со сдвигом 2: Кожаыкл ижнвпкж - кыжф дрйорипруфю, пж кожаыкл ижнвпкж - кыжф сткщкпх
2)Шифр с заменой букв на цифры(использовано первые буквы клавиатуры): еугкнггк кенуену - уецкгг нуцеецншйгуеешз, енц уенцкнну цнйшнкеу - уцнгу унцггуц