Question

How to convert an int array to an int number in Pascal

Answer 1

program ConvertArrayToNumber;

function ConvertIntArrayToIntNumber(arr: array of integer; arrSize: integer): Int64;
var
  i, n: Int64;
begin
  n := 0;
  for i := 0 to arrSize - 1 do
    n := n * 10 + arr[i];
  ConvertIntArrayToIntNumber := n;
end;

var
  arr: array[0..6] of integer = (9, 4, 6, 3, 9, 1, 2);
  arrSize, n: Int64;

begin
  arrSize := Length(arr);
  n := ConvertIntArrayToIntNumber(arr, arrSize);
  writeln('n = ', n);
  readln;
end.



(*
run:

n = 9463912

*)

 

70+ SQL courses for beginners and professionals