Поясните задачу с циклом, всё решено не понимаю что откуда берётся

[perec200]

Здравствуйте, буду рад помощи.
Задача:
"Известен рост каждого человека из группы. На сколько рост самого высокого превышает рост самого маленького?"
Решение:

program test;
uses crt;
var n,i,a,max,min:longint;
begin
clrscr;
writeln('vvod n');
readln(n);
max:=0;
min:=300;
for i:=1 to n do
begin
writeln ('vvod',i,'post');
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('max-min=',max-min);
readln;
end.

[ViktorR]

program test;
uses crt;
var n,i,a,max,min:longint;
begin
clrscr;
writeln('vvod n'); {размер группы}
readln(n);
write('Vvodim rost (sm): '); {запрос размера для первого}
readln(a);
max:=a; {нач. значения для max}
min:=a;  {и min}
for i:=1 to n - 1 do {запрос размера для остальных}
begin
   write('Vvodim rost (sm): ');
   readln(a);
   if a>max then max:=a; {проверяем на max}
   if a<min then min:=a;  {и min}
end;
writeln('max - min= ', max-min); {Сообщаем о разнице}
readln;  {Это для того, что-бы увидеть на экране, а не жать Alt + F5}
end.

И что?
...

[Dozent]

for i:=1 to n - 1 do {запрос размера для остальных}

for i:=1 to n  do {запрос размера для остальных}

Начинаем же не с нуля...
В чём проблема та? зачада решена верна...

[ViktorR]

Dozent

В чём проблема та? зачада решена верна...

1. Попросили прокоментировать.
2. Принятая в задаче инициализация верна только для этого конкретного случая. Мы достаточно точно можем определить диапазон значений для роста. Предложенный мной порядок подразумевает, что параметры первого человека используются для инициализации min и max.
Таким образом, в цикле вводятся данные для остальных и этих данных уже на одного чела меньше.
И вообще, брать значения для инициализации начальных значений с потолка, в моём понимании, вредное занятие.

Да. Задача решена верно, но ...


Как-то так, ...