Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
Примерно это происходит вот так:
Число 3^n при n > 0 является круглым и в третичной системе двойки в нём содержаться не будет.
- всего 28 нулей.
- всего 18 нулей.
- всего 10 нулей.
- всего 3 нуля.
- конец 18 нулей, середина 28-18+1=11 нулей
- конец 10 нулей, дальше 18-10=8 двоек, дальше 28 нулей.
- конец 10-3-1=6 двоек, и 8 двоек, нули уже не важны.
Ответ: 6+8=14 двоек
Надеюсь нигде не ошибся в расчетах)
Алгоритм конец есть начало и конец
