Отличие высокого от низкого

[Shevali]

Не поможите с задачей?
есть данные о росте группы людей. Правда ли, что рост самого высокого отличается от роста самого низкого больше, чем на 40 см.?

Вот что получилось:

uses crt; var i, x, t: integer;
r: integer; {рост ученика} min, max: integer;
n: integer; {количество одноклассников}
Begin
clrscr;
writeln ('Введите количество учеников');
readln (n);
writeln ('вводите рост учеников');
readln (min); {вводим рост первого ученика}
for i:=2 to n do
begin readln (r); {вводим рост очередного ученика}
if r<min then min:=r else max:=r;
end; {for}
writeln ('Минимальный рост ученика = ',min);
writeln ('Максимальный рост ученика = ',r);
t:=max-min;
if t>40 then writeln ('Действительно, отличается на 40 см.');
readln;
end.

Как я понимаю, сначала нужно найти максимальный и минимальный рост, а вот с эти затруднение. Если Sazary видит, пусть откликнется.

[Sazary]

Так.. Во-первых, используйте тег CODE.
Во-вторых, не связывайте минимум и максимум. Для каждого делайте свое условие.

uses crt;
var
 i, x, t: integer;
r: integer; {рост ученика}
min, max: integer;
n: integer; {количество одноклассников}
Begin 
clrscr;
writeln ('Введите количество учеников');
readln (n);
writeln ('вводите рост учеников');
readln (min); {вводим рост первого ученика}
max := min;
for i:=2 to n do
 begin
 readln (r); {вводим рост очередного ученика}
 if r<min then min := r;
 if r>max then max := r;
 end; {for}
writeln ('Минимальный рост ученика = ',min);
writeln ('Максимальный рост ученика = ',max);
t:=max-min;
if t>40 then writeln ('Действительно, отличается на 40 см.');
readln; 
end.

[Shevali]

Так работает. спасибо. Не могли бы Вы объяснить про max:=min.
До этого я делал практически так, как Вы показали:
if r<min then min:=r;
if r>max then max:=r; и пр.
и всё отличие от вашего варианта было в max:=min
Что оно меняет?

[Sazary]

До этого я делал практически так, как Вы показали:

Ну, скажем, не также )

if r<min then min:=r else max:=r;

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

readln (min); {вводим рост первого ученика}
max := min;

Здесь вы вводите рост первого ученика. Изначально и минимум и максимум равны (других-то учеников еще нет). Вот поэтому так и записано.

[Shevali]

Спасибо за совет