массивы
Дан массив 50 целых чисел. Элементы массива могут принимать целочисленные значения от -40 до 40. Составьте программу вычисления суммы элеменов, меньших первого элемента.

Random(A); Потому что всегда от 0 до A-1

Учтем.

program wk;var mas:array [1..50] of integer;s,i:integer;begin s:=0;  for i:=1 to 50 do   begin    mas[i]:=random(81)-40;    if mas[i]<mas[1] then s:=s+mas[i];   end; writeln(s)end.

Const   N = 50;Var   A:array[1..N] of integer;   i,S:integer;BeginWrite('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(81)-40;    Write(A[i],' ');    if A[i]<A[1] then       S:=S+A[i];    End;WriteLn;WriteLn('S = ',S);End.