Помогите решить задачу по Pascal. Тема - массивы

[Aram4ik007]

Помогите решить задачу по Pascal. Тема - массивы

ребят...помогите пожалуйста решить задачу Pascal по массивам...буду очень благодарен вам.
вот условие задачи:
для массива вещественных чисел подсчитать и распечатать сумму элементов массива

 

[Артём]

[MOD]Тема перемещена по принадлежности из раздела Windows.[/MOD]

 

[AlexZir]

uses crt;
const n=10;
var mas:Array[1..n] of Real;
s:Real;
i:integer;
begin
//заполнение массива случайными значениями и вывод его на экран
clrscr;
randomize;
for i:=1 to n do begin
mas[i]:=random(100);
writeln(mas[i]); end;
//подсчет суммы элементов массива
s:=0;
for i:=1 to n do
s:=s+mas[i];
writeln('Сумма элементов массива равна ',s);
readln;
end.