Дана последовательность чисел а1, а2, ..., а15, упорядоченная по возрастанию, и число n1, не равное ни одному из чисел последовательности, и такое что а1
Определить сумму последовательности, меньших n1.

Program z;

var a:array [1 ... 15] of integer; i, k, s, j, n:integer;

begin

writeln ('Начальная последовательность') ;

for i:=1 to 15 do

begin

a[i]:=random (1,100) ;

write (a[i], ' ') ;

end;

for j:=1 to 14 do

for i:=1 to 14 do

if a[i]>a[i+1] then

begin

k:=a[i];

a[i]:=a[i+1];

a[i+1]:=k

end;

writeln;

writeln ('Отсортированная последовательность') ;

for i:=1 to 15 do

write (a[i], ' ') ;

writeln;

write ('Введите N (а[1]
read (n) ;

for i:=1 to 15 do

begin

if (a[i]=n) or (a[1]>n) or (a[15]
begin

while (a[i]=n) or (a[1]>n) or (a[15]
begin

writeln ('Ошибака! Число N не длжно совпадать с элементами последвовательности и а[1]
write ('Введите N (а[1]
end;

end;

if a[i]
end;

write ('Cумму последовательности меньших N = ', s) ;

end.