محاسبه مربعات عناصر آرايه:

program sqrarray;

const

n=5;

m=5;

var

i,j:integer;

sum:real;

a:array[1..n,1..m] of real;

begin

for i:=1 to n do

for j:=1 to m do

begin

write('please enter numbers=');

readln(a[i,j]);

end;

sum:=0;

for i:=1 to n do

for j:=1 to m do

sum:=sum+a[i,j]*a[i,j];

write('<***SUM OF SQUARES IS:***>>>>>>>',sum:5:2);

readln;

end.

اگر اعداد آرايه اي كوچكتر از ام  باشد آنگاه 0 شود و تعداد اين آرايه ها نيز مشخص شود: 

program Search;

const

n=5;

k=5;

M=10;

var

i,j,no:integer;

a:array[1..n,1..k] of integer;

begin

for i:= 1 to n do

for j:=1 to k do

begin

writeln('please enter elements of arrey:A ===>> =');

readln(a[i,j]);

if a[i,j]<M then

begin

a[i,j]:=0;

no:=no+1;

end;

end;

for i:= 1 to n do

begin

for j:=1 to k do

write(a[i,j]:8);

writeln;

end;

write('<<<<**number of zero**>>>>',no);

readln;

end.

تركيب دو ليست :

program mergingAB;

const

m=3;

n=3;

var

i,j:integer;

a:array[1..n,1..m] of integer;

b:array[1..n,1..m] of integer;

ab:array[1..n,1..2*m] of integer;

begin

for i:=1 to n do

for j:=1 to m do

begin

writeln('please enter numbers of array:A=');

readln(a[i,j]);

end;

for i:=1 to n do

for j:=1 to m do

begin

write('please enter numbers of array:B=');

readln(b[i,j]);

end;

for i:=1 to n do

for j:=1 to m do

begin

ab[i,j]:=a[i,j];

end;

for i:=1 to n do

for j:=1 to m do

begin

ab[i,j+m]:=b[i,j];

end;

for i:= 1 to n do

begin

for j:= 1 to 2*m do

write(ab[i,j]:4);

writeln;

end;

readln;

end.

جمع عناصر آرايه و نمايش جمع عناصر هر سطر در جلوي آن:

program sumarray;

const

n=5;

var

i,j:integer;

a:array[1..n,1..n] of integer;

temp:array[1..n,1..n+1] of integer;

begin

for i:=1 to n do

for j:=1 to n do

begin

write('please enter elements of matrix: A=');

readln(a[i,j]);

end;

for i:=1 to n do

for j:=1 to n do

temp[i,j]:=a[i,j];

for i:=1 to n do

for j:=1 to n do

begin

temp[i,6]:=temp[i,6]+a[i,j]

end;

for i:=1 to n do

begin

for j:=1 to n+1 do

write(temp[i,j]:8);

writeln;

end;

readln;

end.

ضرب دو ماتريس:

program zarb_matrix;

const

m=2;

n=3;

p=4;

var

a:array[1..m,1..n] of integer;

b:array[1..n,1..p] of integer;

c:array[1..m,1..p] of integer;

i,j,k:byte;

begin

writeln('enter element of array A');

for i:=1 to m do

for j:=1 to n do

begin

write('element A(i,j)=');

readln(a[i,j]);

end;

writeln('enter element of array b');

for i:=1 to n do

for j:=1 to p do

begin

write('element B(i,j)=');

readln(b[i,j])

end;

for i:=1 to m do

for j:=1 to p do

c[i,j]:=0;

for i:=1 to m do

for j:=1 to p do

for k:=1 to n do

c[i,j]:=c[i,j]+a[i,k]*b[k,j];

for i:=1 to m do

begin

for j:=1 to p do

write(c[i,j]:8);

writeln;

end;

readln;

end.