Ниже показан пример подсчета суммы одномерного массива на Pascal
var a:array[1..10] of integer;
s:longint;
i:integer;
begin
writeln('введите 10 элементов массива');
s:=0;
for i:=1 to 10 do begin
readln( a[i] );
s:=s+a[i];
end;
writeln( 'Сумма элементов массива = ', s );
end.
Далее двумерного массива с подключением генератора случайных чисел до 100
var a:array[1..10,1..10] of integer;
s:longint;
i,j:integer;
begin
randomize();
writeln('введите 10 элементов массива');
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do begin
a[i,j]:=random(100);
if (j=10) then writeln(' ',a[i,j]) else write(' ',a[i,j]);
s:=s+a[i,j];
end;
writeln( 'Сумма элементов массива = ', s );
end.