Дана задача--->

[Programmistka6]

Дано множество чисел. Найти разность минимального и максимального элемента, находящихся в данном множестве. Кто может помочь с решением ?

[Dj_smart]

Если речь о массиве, то:

const f=100;

var mas:array[1..f] of integer;
     max,min,razn,nommin,nommax,n:integer;

begin
  min:=65535;
  for n:=1 to f do begin
    if mas[n]<min then  begin
      min:=mas[n];
      nommin:=n;
    end;
    if mas[n]>max then begin
      max:=mas[n];
      nommax:=n;
    end;
  end;
  razn:=nommax-nommin;
end;

и дело в шляпе)))

[Programmistka6]

Большое спасибо

[Dj_smart]

Всегда пожайлуста))))

[hoza_syl]

min:=65535;

Лучше будет написать

min:=mas[1]

[Dj_smart]

Нет, наверняка в условии задачи давался максимально возможный вариант. Я это число дал для гарантии, чтобы минимальный елемент не оказался максимальным.

Хотя твой вариант логичнее.

[hoza_syl]

Ты прав. Я как то не подумал.