**Пример 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 .