Дан массив А из 20 элементов. Найти сумму элементов массива. Результат вывести на печать.

на языке бейсика. если можно полное решение ...

program summa;

uses Crt;

const

n = 20;

var A: array[1 ... n] of integer;

s: integer;

i: integer;

begin

ClrScr;

randomize; {запускаем генератор случайных чисел}

FOR I:=1 to n do

A[i]:=random (20) ;

FOR I:=1 to n do

begin

Write (A[i]) ;

Write (' ') ;

end;

s:=0;

FOR I:=1 to n do

S:=S+A[i];

WriteLn;

WriteLn ('Сумма чисел: ', s) ;

end.