Verified answer

Ответ:

program Hello;

const

   lenArr = 10;

type

   mas = array[1..lenArr] of integer;

var

   arr: mas;

   i: byte;

   sum: integer;

begin

   writeln ('введите 10 елементов масива');

   for i:=1 to lenArr do readln (arr[i]);

   sum :=0;

   for i:=1 to lenArr do

   begin

       sum := sum + arr[i];

   end;

   writeln ('сума елементов масива');

   write (sum);

end.

Объяснение: