Мысал 1.

Кездейсоқ сан арқылы массив элементтерін экранға шығару және екі өлшемді массивттің барлық элементтерінің сандарының қосындысын табу керек.

program pr21;

const n1=10; { массивтің жолдарының максимальды өлшемі }

m1=10; { массивтің бағандарының максимальды өлшемі }

type mas = array[1..n1,1..m1] of integer;

var a: mas;

i, { кезекті жол номеpі}

j, кезекті баған номеpі }

n,s,m : integer;

begin

writeln('Массивтің жолдары мен бағандарының санын енгіз:');

read(n,m);

randomize;

for i:=1 to n do

for j:=1 to m do

a[i,j]:=random(10);

writeln('Алынған массив');

for i:=1 to n do

begin for j:=1 to m do

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

writeln;

end;

s:=0;

for i:=1 to n do

for j:=1 to m do s:=s+a[i,j]; writeln('s=',s); end.