УМОЛЯЮ ПОМОГИТЕ!!!! ЛЮДИ ДОБРЫЕ!!!
Напишите программу нахождения суммы массива констант

Ответ:

Program xxxxx;

uses crt;

const n=100;

var

a:array[1..n] of integer;

s,i:integer;

begin

clrscr;

randomize;

for i:=1 to n do

begin

  a[i]:= random(10)+1;

  s:=s+a[i];

end;

end.

Объяснение: