Пример 1. Ввод и вывод одномерного массива.
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: byte;
begin
writeln(„введите элементы массива“);
for i:=1 to n do readln(a[i]);
writeln(„вывод элементов массива:');
for i:=1 to n do write(a[i]:5);
end.
Пример 2. Ввод и вывод двумерного массива.
type
matrix= array [1..5, 1..10] of integer;
var
a, : matrix;
i, j: integer; { индексы массива }
begin
for i :=1 to 5 do {цикл для перебора всех строк}
for j :=1 to 10 do {перебор всех элементов строки по столбцам}
readln ( a [ i , j ]);
writeln(„вывод массива:');
for i :=1 to 5 do begin
for j :=1 to 10 do
write ( a [ i , j ]:4);
writeln ;
end .