элементарная задача на цикл с счетчиком

[VaR_Female]

заглянула персона, далеко имеющий представление об программировании =)
Вот условие:
В бригаде работающей по уборке снега, имеется N косилок. Первая из них работала m часов, а каждая следующая на 10 минут больше предыдущей. Сколько часов проработала вся бригада?
Вот листинг:

program uborka;
var
m,n,i,mm,k,p: word;
t: array[1..100]of word;
begin
writeln('vvedite kol-vo kosilok');
readln(n);
writeln('vvedite kol-vo chasov raboti pervoi kosilki');
readln(m);
mm:=m*60;{perevod v minuti}
t[1]:=mm;
for i:=1 to n do
t[i+1]:=t[i]+10;
k:=t[n]div 60; {perevod v chasi}
p:=t[n]mod 60; {perevod v minuti}
writeln(k,' chasov ',p,' minut');
readln;
end.

Преподаватель говорит, что неверно ... В чем подвох? никак не могу понять Оо

Спасибо!

[puporev]

Вы зря используете массив, он здесь лишний.

for i:=1 to n do
t[i+1]:=t[i]+10;

Интересно чему равен элемент t[n+1]? Обычно компьютер выкидывает ноль, а может выкинуть что угодно. Тоже будут, если мы выйдем за левую границу массива. Поэтому не нужно использовать массив.

program uborka; 
uses crt;
var 
m,n,i,mm,k,p,t: word;
begin
clrscr;
writeln('vvedite kol-vo kosilok'); 
readln(n); 
writeln('vvedite kol-vo chasov raboti pervoi kosilki'); 
readln(m); 
mm:=m*60;{perevod v minuti}
t:=mm;
for i:=2 to n do
   begin
    mm:=mm+10;
    t:=t+mm;
  end;
k:=t div 60; {perevod v chasi}
p:=t mod 60; {perevod v minuti}
writeln(k,' chasov ',p,' minut');
readln; 
end.

И еще, не знаю как у вас, а у нас на Урале снег косилками не убирают.

[lexus_ilia]

а может у них такие супер-пупер кослики что им и снег мона убирать и траву косить и сено в тюки скручивать А мот ещё и картошку копать

[VaR_Female]

=))) спасибо! Да я там опечаталась, не снега, а сена)))))