{* Задача387 *}

REM basic

' У прилавка магазина выстроилась очередь из n покупателей. Время обслуживания i - того покупателя равно t(i) (i=1,.....,n). Определить время с(i) пребывания i-го покупателя а очереди.


INPUT "vvedite kolichestvo pokupateley ",n
Dim t(n),c(n)
For i = 1 To n
INPUT "vvedite ocherednoe vremya ",t(i)
Next
PRINT"massiv"
For i = 1 To n
PRINT  t(i);
Next
PRINT
For i=1 To n
c(i)=c(i-1)+t(i)
Next
PRINT" vremya prebyvaniya pokupateley v ocheredi (ot 1 Do n):"
For i=1 To n 
PRINT c(i);
Next
End