Составьте программу вычисления суммы элементов одномерного массива А(N), меньших N. Заполнить массив случайным образом.

О как все запущено....

Я поняла, что это элементы массива, но какая последовательность?

Случайная конечно же!

У Вас же в условии указано: ЗАПОЛНИТЬ СЛУЧАЙНЫМ ОБРАЗОМ

Вы не читаете то, что пишете?

const m=100;var a:array[1..m] of integer;n,i,s:integer;beginwriteln('Введите n<=100:'); readln(n);Randomize;for i:=1 to n do begin a[i]:=random(50); write(a[i]:4); end;writeln;s:=0;for i:=1 to n do if a[i]<n then s:=s+a[i];writeln('s=',s);end.Пример:Введите n<=100:10   2  25  36  36  35   3   1  20  37  32s=6

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,0,2*n); a.Println;  Writeln('Искомая сумма равна ',a.Where(x->x<n).Sum)end.Тестовое решение:n= 154 10 11 17 16 2 26 19 26 5 21 26 9 18 11Искомая сумма равна 52