Где здесь ошибка?

@Евдокия · Регистрация: 24.10.2013

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

Помогите начинающему программисту). Условие: дано 100 вещественных чисел. Найти разность между максимальным и минимальным. На Паскале. БЕЗ ИСПОЛЬЗОВАНИЯ МАССИВОВ! Вот что у меня получилось:

Pascal

uses crt;
var i, a, b, min,max:integer;
begin
clrscr;
a:=random(100)-random(100);
write(a);
min:=a;max:=a;
for i:=1 to 100 do
if a>max then max:=a;
if a<min then min:=a;
b:=max-min;
writeln('b=');
readln;
end.

@ildwine · 24.10.2013, 17:18

Pascal

uses crt;
var
  a, min, max : real;
  i : byte;
begin
  clrscr;
  max := -1000; min := 1000;
  randomize;
  for i := 1 to 100 do
  begin
    a := random(100)-random(100);;
    write(a:4:0);
    if a >= max then max := a;
    if a <= min then min := a
  end;
  writeln('Максимальное число = ', max);
  writeln('Минимальное число = ', min);
  writeln('Разница между ними = ', max-min);
  repeat until keypressed
end.

@Евдокия · 24.10.2013, 17:30 **[ТС]**

Можете объяснить почему максимальному и мин. значению присваивается +-1000?

@ildwine · 24.10.2013, 17:33

Присваиваем min заведомо большое значение. При первом же сравнении a окажется меньше этого значения. И min станет равен a (текущему), возможно при следующих итерациях окажется еще меньшее значение. 1000 - отправная точка, с которой сравниваем первый элемент, а остальные сравниваем, со следующими. Также и с max, его делаем заведомо малым = -1000.

@Евдокия · 24.10.2013, 18:08 **[ТС]**

Спасибо большое!

@ildwine · 24.10.2013, 18:09

Не за что, обращайтесь

@Евдокия · 24.10.2013, 18:10 **[ТС]**

Хорошо

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	24.10.2013, 17:30 [ТС]	3
	Можете объяснить почему максимальному и мин. значению присваивается +-1000? 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	24.10.2013, 17:33	4
	Присваиваем min заведомо большое значение. При первом же сравнении a окажется меньше этого значения. И min станет равен a (текущему), возможно при следующих итерациях окажется еще меньшее значение. 1000 - отправная точка, с которой сравниваем первый элемент, а остальные сравниваем, со следующими. Также и с max, его делаем заведомо малым = -1000. 0

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	24.10.2013, 18:08 [ТС]	5
	Спасибо большое! 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	24.10.2013, 18:09	6
	Не за что, обращайтесь 0

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	24.10.2013, 18:10 [ТС]	7
	Хорошо 0