очередь из N покупателей

@vandalism · Регистрация: 29.11.2017

Студворк — интернет-сервис помощи студентам

выстроилась очередь из N покупателей .известно время обслуживания продавцом каждого покупателя определит время прибывания каждого покупателя в очереди .Указать номерпоекпателя для обслуживания которой понадобилось меньше всего времени

@koorya · 14.06.2010, 22:26

Pascal

var
  p:array[1..100] of integer;
  n,i,t:integer;
begin
  readln(n);
  t:=0;
  for i:=1 to n do {время обслуживания}
    readln(p[i]);
  for i:=1 to n do
    begin
      writeln('покупатель номер ',i,' простоял в очереди ',t);
      t:=t+p[i];
    end;
  t:=p[1];
  for i:=1 to n do
    if t>p[i] then
      t:=p[i];
  for i:=1 to n do
    if t=p[i] then
      writeln(i,' покупателя обслуживали быстрее всех');
  readln;
end.

@vandalism · 15.06.2010, 23:41

спасибо

@vandalism 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 6
		1
	очередь из N покупателей 14.06.2010, 22:09. Показов 1716. Ответов 2 Метки нет (Все метки) выстроилась очередь из N покупателей .известно время обслуживания продавцом каждого покупателя определит время прибывания каждого покупателя в очереди .Указать номерпоекпателя для обслуживания которой понадобилось меньше всего времени 0

@vandalism 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 6
	15.06.2010, 23:41	3
	спасибо 0

Опции темы

очередь из N покупателей

Решение