• Pascal

var I:Integer;
    Items: array of TObject;
[...]
  for I := 0 to high(Items) do
    if assigned(Items[I]) then
      WriteLn(Format('Item %d = %s', [I, Items[I].ToString]));

• Pascal

var I:Integer;
    Items: array of String;
[..]
  for I := 0 to high(Items) do
    WriteLn('Item ', I, ' = ', Items[I]);

• Ada

for I in Items'Range loop
   X := Items (I);
   Put_Line (Integer'Image (I) & " " & Integer'Image (X));
end loop;

• C

for (size_t i = 0; i < n; i++) {
  printf("Item %d = %s\n", i, toString(items[i]));
}

• Caml

(* output_elem is a printer for elements of [items] *)
items |> List.iteri (fun i x ->
	printf "%d: %a" i output_elem x
)

• Clojure

(doseq [[i x] (map-indexed vector items)]
  (println i ":" x))

• C++

for (auto const [i, x] : std::views::enumerate(items)) {
  std::cout << i << ": " << x << '\n';
}

• C++

for (std::size_t ix = 0; ix < items.size(); ++ix) {
  std::cout << "Item " << ix << " = " << items[ix] << std::endl;
}

• C++

std::size_t i = 0;
for(const auto & x: items) {
  std::cout << "Item " << i++ << " = " << x << std::endl;
}

• C#

foreach (var (x, i) in items.Select((x, i)=>(x, i)))
{
    System.Console.WriteLine($"{i}: {x}");
}

• C#

foreach (var (i, x) in items.AsIndexed())
{
    System.Console.WriteLine($"{i}: {x}");
}

public static class Extensions
{
    public static IEnumerable<(int, T)> AsIndexed<T>(
        this IEnumerable<T> source)
    {
        var index = 0;
        foreach (var item in source)
        {
            yield return (index++, item);
        }
    }
}

• C#

for (int i = 0; i < items.Length; i++)
{
    Console.WriteLine($"{i} {items[i]}");
}

• D

foreach(i, x; items)
{
   writefln("%s: %s", i, x);
}

• D

items.enumerate.each!(a => writeln("i = ", a[0], " value = ", a[1]));

• Dart

items.forEachIndexed((i, x) {
  print('index=$i, value=$x');
});

• Dart

for (var i = 0; i < items.length; i++) {
  print('index=$i, value=${items[i]}');
}

• Dart

items.asMap().forEach((i, x) {
  print('index=$i, value=$x');
});

• Elixir

items
|> Enum.with_index
|> Enum.each(fn({x, i}) ->
  IO.puts("#{i} => #{x}")
end)

• Erlang

WithIndex =
  lists:zip(lists:seq(1, length(Items)), Items),
io:format("~p~n", [WithIndex]).

• Fortran

do i=1, size(items)
  print *,i, items(i)
end do

• Go

for i, x := range items {
    fmt.Printf("Item %d = %v \n", i, x)
}

• Groovy

items.eachWithIndex {
  x, i -> println "Item $i = $x"
}

• Haskell

mapM_ print (zip [0..] items)

• JS

for (var i in items) {
   console.log("index=" + i + ", value=" + items[i]);
}

• JS

items.forEach((val, idx) => {
  console.log("index=" + idx + ", value=" + val);
});

• Java

int i, n;
for (i = 0, n = items.length; i < n; ++i)
    out.println(i + " = " + items[i]);

• Java

int i, n;
for (i = 0, n = items.size(); i < n; ++i)
    out.println(i + " = " + items.get(i));

• Java

int i = 0;
for (T t : items)
    out.println(i++ + " = " + t);

• Java

range(0, items.length)
    .forEach(i -> {
        out.println(i + " = " + items[i]);
    });

• Kotlin

items.forEachIndexed { i, x -> 
  println("i=$i x=$x") 
}

• Lisp

(loop for i from 0 and x across items
      do (format t "~a = ~a~%" i x))

• Lua

for i, x in ipairs(items) do
	print('Index: '..i..', Value: '..x)
end

• Obj-C

[items enumerateObjectsUsingBlock:^(id x, NSUInteger i, BOOL *stop) {
  NSLog(@"Item %lu = %@",(u_long)i,x);
}];

• PHP

foreach ($items as $i=>$x)
{
    echo "i=$i, x=$x"; echo '<br>';
}

• Perl

while (my ($i, $x) = each @items) {
    print "array[$i] = $x\n";
}

• Python

for i, x in enumerate(items):
    print(i, x)

• Python

print(*enumerate(items))

• Ruby

items.each_with_index do |x, i| 
  puts "Item #{i} = #{x}"
end

• Ruby

items.each_index{|i| puts "Item %d = %s" % [i, items[i]]}

• Rust

for (i, x) in items.iter().enumerate() {
    println!("Item {} = {}", i, x);
}

• Rust

items.iter().enumerate().for_each(|(i, x)| {
    println!("Item {} = {}", i, x);
})

• Scala

val items = List("a", "b", "c")
items.zipWithIndex.foreach{ case (item, index) => 
  println(s"$index => $item")
}

• Scheme

(define (display-list items)
  (define (display-list items i)
    (if (not (null? items))
        (begin
          (display (string-append
                    (number->string i)
                    ": "
                    (number->string (first items))
                    "\n"))
          (display-list (rest items) (+ i 1)))
        'done))
  (display-list items 0))

• Smalltalk

items withIndexDo: [:item :index |
  Transcript showln: 'item: ' , item asString , ' index: ' , index asString].

• VB

For i = LBound(items) To UBound(items)
    x = items(i)
    Debug.Print i & ": " & x
Next

• VB

For i As Integer = 0 To items.Length - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next

• VB

For i As Integer = 0 To items.Count - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next