Разница между числами

[businessman]

Дан ряд из n чисел. Нужно найти разницу между этими числами. То есть например если ряд чисел 3, 5, 10, 13, 18, то ответ будет 2,5,3,5

[Stilet]

Ввод чисел сделать смогешЪ?

[businessman]

Сообщение от Stilet

Ввод чисел сделать смогешЪ?

Какой ещё ввод чисел?? Привожу аналогично простую задачу: найти сумму чисел a и b. Разве не понятно, что для чисел a и b нет никакого заранее придуманого ввода? Так же само и в этой задаче.

[BDA]

Под вводом чисел подразумевается код, производящий считывание числа n и самого ряда из консоли или файла. Ну чтобы было понятно, что Вы тоже думаете над задачей, а не халявы ждёте

[businessman]

Сообщение от BDA

Под вводом чисел подразумевается код, производящий считывание числа n и самого ряда из консоли или файла. Ну чтобы было понятно, что Вы тоже думаете над задачей, а не халявы ждёте

Ааа, ну я в принципе понимаю как составить код, но он получается какой то большой, хотя можно сделать короткий.
Код:

var q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,k,l : integer;
begin
readln (q,w,e,r,t,y,u,i,o,p);
a:=w-q;
s:=e-w;
d:=r-e;
f:=t-r;
g:=y-t;
h:=u-y;
j:=i-u;
k:=o-i;
l:=p-o;
writeln(a,' ',s,' ',' ',d,' ',' ',f,' ',' ',g,' ',' ',h,' ',' ',j,' ',' ',k,' ',' ',l);
end.

[Stilet]

var k,i,j:integer; s,c:string;
begin
 k:=10; i:=0; j:=0;
 while k>0 do begin
  readln(i); str(i-j,c); s:=s+' '+c; j:=i;
  dec(k);
 end;
 write(s); readln;
end.

Это если массивы запрещены.
P.S. Не проверял.

[businessman]

Сообщение от Stilet

var k,i,j:integer; s,c:string;
begin
 k:=10; i:=0; j:=0;
 while k>0 do begin
  readln(i); str(i-j,c); s:=s+' '+c; j:=i;
  dec(k);
 end;
 write(s); readln;
end.

Это если массивы запрещены.
P.S. Не проверял.

Работает, спасибо