Задана последовательность из 10 целых чисел. Для каждого элемента начиная со второго найти разницу с предыдущим элементом (ai - ai - 1)

Const n=10;

var a:array[1 ... n] of integer;

i:integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (51) ;

write (a[i]:4) ;

end;

writeln;

writeln ('Искомые разности:') ;

for i:=2 to n do write (a[i]-a[i-1]:4) ;

writeln;

end.

Пример:

3 43 32 33 18 29 21 48 33 28

Искомые разности:

40 - 11 1 - 15 11 - 8 27 - 15 - 5

Ответ пишу в комментариях, использовал массив, так проще). На входе вводишь 10 чисел на выходе 5 разниц.

Если сделал что-то не так, пиши поправлю!