Здравствуйте, Sanq4!
Задача в приложении.
В цикле <b>For</b> заполняем массив случайными числами с помощью функции <b>random</b>, выводим его на экран и прибавляем к сумме только что заполненный элемент массива. Тип переменной которая хранит сумма - <b>real</b>, т.к. тип массива тоже <b>real</b>. В начале программы <b>нужно проинициализировать нулем</b> переменную, которая хранит сумму, если этого не сделать, то переменная будет хранить всякий "мусор" и программа выдаст не верный результат!
Удачи!!!

Приложение:
const {Длина массива} N=10;var {Массив из N элементов} C: array [1..N] of real; i: integer; {Сумма(тип real!)} sum: real;begin {Инициализация суммы} sum:=0; randomize; {Цикл For} for i:=1 to N do begin {случайное число} C[i]:=random(100)-50+random; {Вывод} write(c[i]:8:3); {Прибавка к сумме} sum:=sum+c[i]; end; writeln; {Вывод рез-ов} Write(‘Сумма элементов массива: ‘, sum:8:3); readln;end.

Здравствуйте, Sanq4!При вводе массива сразу подсчитываем сумму.
Код в приложении.

Приложение:
uses crt;var c:array [1..20] of real;i,n:byte;sum:real;beginclrscr;writeln (‘vvedite kol-vo elementov‘);readln (n);sum:=0;for i:=1 to n do beginwriteln (‘vvedite ocherednoy element‘);readln (c[i]);sum:=sum+c[i];end;write (‘summa elementov massiva ravna ‘,sum:10:4);readln;end.

Здравствуйте, Sanq4!
Программа в приложении....
Удачи=))))

Приложение:
constn=10;VarC:array[1..n] of real;sum:real;I:integer;BeginRandomize; For i:=1 to n do c[i]:=Random(i)/(random(i)+1);sum:=0;For i:=1 to n do sum:=sum+c[i];Writeln(sum);REadln;end.