Задача по Паскалю (1 курс)

var pr:array[1..10000] of integer; i,n,t,s:integer;
begin
write('t='); readln(t); t:=t*60;
write('kol-vo='); readln(n);
for i:=1 to n do begin
pr [ i ] :=random(9)+1; write(pr [ i ] ,', '); {авто}
{write(' [ ',i,' ] ='); readln(pr [ i ] );} {с клавы}
end; i:=0;
while (s < =t) and (i < =n) do begin inc(i); s:=s+pr [ i ] ; end; writeln;
writeln(i-1);
end.

Тут 2 варианта (с клавиатуры и авто ввод данных) . Чтобы переключить на ввод вручную, снимите фигурные скобки в нужной строке и поставьте их в ненужной.

А если нужно использование только цикла while, то:

var i,a,n,t,s:integer;
begin
write('t='); readln(t); t:=t*60;
while s < =t do begin inc(i); readln(a); s:=s+a; end;
writeln(i-1);
end.

Тут просто вводишь t, а потом время обслуживания каждого посетителя, а программа остановится в нужном месте и выведет число.

var t,p:integer; begin write('t p? '); readln(t,p); writeln(t*60 div p) end.

result := t*60 div Tobsluj;
Tobsluj - время в минутах на обслуживание
A div B - частное от деления А на В

program my;
var
t,m:integer;
begin
write('Введите длительность рабочего дня в часах - ');
readln(t);
t:=t*60;
Write('Введите длительность обслуживания одного клиента в минутах - ');
readln(m);
t:=t div m ;
writeln('Мастер успеет обслужить - ',t,' человек (а).');
end.

прапра