Который раз повторяю, указывайте на каком языке нужно писать программу. По классике написала на Pascal:
program ff;
var
x : integer;
begin
Write('Введите число ');
Readln(x);
if x mod 2 = 0 then writeln(x/2)
else writeln(sqr(x));
end.
<span>var
a: array[1..1000] of </span><span>longint</span>;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;
Перевод из 10-ой в 16-ю (8-ю) выполняется делением на 16 (8) и выписыванием остатков
64010(10) = FA0A(16)
<span>64010(10) = 175012(8)</span>