program test;
var
a: array[1..5] of Integer;
begin
a[1] := 12;
a[2] := 23;
a[3] := 34;
a[4] := 45;
a[5] :=
56;
end.
Пример за внесување на вредности на
елементи од низа - поле
од тастатура и за печатење:
program
test;
vara: array[1..5] of Integer;
i,sum: Integer;
begin
sum=0;
for i := 1 to 5 do
Readln(a[i]);
for i := 1 to 5 do
sum:=sum+a[i];
for i := 1 to 5 do
Writeln('Sumata e ',sum:6);
end.