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

Решение

program lab;

type mas=array[1..100] of integer;

var a:mas;

i,j,n:integer;

begin

randomize;

writeln('Vvedite 4islo 4elovek');

readln(n);

for i:=1 to n do

begin

    a[i]:=random(10);

    writeln('Vremya obslujivaniya ',i,' pokupatelya = ',a[i],' min');

end;

j:=1;

writeln('=====');

for i:=1 to n do

begin

     writeln('Vremya v ocheredi ',i,' pokupatelya = ',j,' min');

     j:=j+a[i];

 

end;

end.