Переводить в десятичную и решать в ней, результат потом переводить обратно
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
var n := ReadInteger('n=');
var m := MatrRandom(n, n); m.Println;
var max := m.ElementsWithIndexes.MaxBy(t -> t[0]);
Println($'Максимальный = {max[0]}');
Println($'Сумма строки = {m.Row(max[1]).Sum}');
Println($'Сумма столбца = {m.Col(max[2]).Sum}');
end.
begin
var sum :integer := 2020;
var i :integer := 0;
var counter : integer :=0;
while (i <> sum) do
begin
if (i mod 3 <> 0) and (i mod 5 <> 0) then
counter += 1;
i+=1;
end;
writeln (counter);
end.
//Ответ 1077