max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
Счет хоккейного матча относиться к числовой форме информации.
Написал, только там можно не задана размерность пароля в 4 цифры, то есть можно вводить пароль любой длинны и не только цифры.
<h3>Код (Pascal)</h3>
var
x, i: longint;
begin
read(x);
for i := 1 to 10 do
write(x * i, ' ');
writeln;
end.
-------------------------
Файл с решением прикреплён.