Подсчет суммы элементов одномерного/двумерного массива — Pascal(Паскаль)

Ниже показан пример подсчета суммы одномерного массива на 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.

Поделитесь своим мнением или задайте вопрос