Question

How to print array elements in groups of 2 with Pascal

Answer 1

program PrintArrayInGroups;

var
  arr: array[1..10] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  i: Integer;

begin
  for i := 1 to High(arr) do
  begin
    if (i mod 2 = 1) then
    begin
      Write(arr[i]);
      if (i + 1 <= High(arr)) then
        Write(' ', arr[i + 1]);
      Writeln;
    end;
  end;
end.



(*
run:

1 2
3 4
5 6
7 8
9 10

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program PrintArrayInGroups;

var
  arr: array[1..10] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  i: Integer;

begin

  i := Low(arr);
  while (i < High(arr)) do
  begin
    writeln(arr[i],', ', arr[i + 1]);
    Inc(i, 2);
  end;
end.



(*
run:

1, 2
3, 4
5, 6
7, 8
9, 10

*)

 

70+ SQL courses for beginners and professionals