max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
var s,n:integer;
begin
s:=0;
n:=0;
while s<65 do begin
s:=s+6;
n:=n+2;
end;
writeln(n);
end.
Ответ: 22.
P.s скопируй в паскаль и сам проверь