Определить сумму элементов одномерного массива - VB

Формулировка задачи:

здравствуйте нужна помощь: решить 2 задачи в VB 1) дан одномерный массив чисел. Определить сумму его элементов 2) найти сумму элементов каждой строки имеются коды к этим задачам 1)

                    Листинг программы
                
 
                        
                          
                    
Program sto_chetire;
uses crt;
var a:array[1..100] of integer;
    s:longint;
    i,n:integer;
begin
clrscr;
     writeln('vvedite razmer massiva');
     readln(n);
     for i:=1 to n do
     begin
     write('a[',i,']=');
     readln(a[i]);
     end;
     s:=0;
     for i:=1 to n do
     begin
        s:=s+a[i];
     end;
     writeln( 'summa elementov massiva = ', s );
     readln(s);
end.

                    Листинг программы
                
 
                        
                          
                    
program new3;
uses crt;
type
 mas2=array[1..100,1..100] of integer;
var
n,s:integer;
a:mas2;
procedure vvod (var n:integer);
var
i,j:integer;
begin
write('vvedite razmer massiva ');
readln(n);
for i:=1 to n do
 for j:=1 to n do
  begin
  a[i, j]:=Random(20);
  write(a[i, j]:4);
  end;
end;
procedure vyvod (n:integer);
var
i,j:integer;
 begin
  for i:=1 to n do
  Begin
   for j:=1 to n do
    write(a[i,j]:3);
    writeln('summa ',s);
    end;
 end;
procedure summ (n:integer);
 Var j,i,s:integer;
 Begin
 s:=0;
  for i:=1 to n do
 
  begin
    for j:=1 to n do
    begin
    s:=s+a[i,j];
    end;
    s:=0;
  end;
 end;
begin
   Randomize;
clrscr;
vvod(n);
summ(n);
vyvod(n);
readln;
readln;
end.

Решение задачи: «Определить сумму элементов одномерного массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim A() As Integer, summ()
    Dim n As Integer, i As Integer, j As Integer
    Randomize
    Cls
    n = InputBox("vvedite razmer massiva ", , 3)
    ReDim A(1 To n, 1 To n), summ(1 To n)
    For i = 1 To n
        For j = 1 To n
           A(i, j) = Rnd * (20)
        Print vbTab; A(i, j);
      Next j
      Print
    Next i
    Print
    For i = 1 To n
        For j = 1 To n
          summ(i) = summ(i) + A(i, j)
        Next j
        Print i & "  summa = " & summ(i)
    Next i
End Sub