+- QP School (https://qomplainerzschool.lima-city.de)
+-- Forum: Tutorials (https://qomplainerzschool.lima-city.de/forumdisplay.php?fid=3)
+--- Forum: Object Pascal Tutorials (https://qomplainerzschool.lima-city.de/forumdisplay.php?fid=50)
+--- Thread: Basic algorithms and Data Structures in Object Pascal (/showthread.php?tid=5051)
Basic algorithms and Data Structures in Object Pascal - Qomplainerz - 07-25-2023
program BasicAlgorithmsExample;
const
SIZE = 5;
var
numbers: array[0..SIZE - 1] of Integer;
i: Integer;
begin
// Populate the array with values
for i := 0 to SIZE - 1 do
numbers[i] := i + 1;
// Output the array elements
for i := 0 to SIZE - 1 do
WriteLn('Number ', i + 1, ': ', numbers[i]);
end.