в массиве В из 30 элементов определить диапазон значений элементов массива

[Zhentos]

помогите решить задачу...
Условие:
в массиве В из 30 элементов определить диапазон значений элементов массива ( разность между максимальным и минимальным элементами).
напишите пож. код задачи, за ранее благодарен.

[Pein95]

for i:=1 to 30 do
if max<a[i] then max:=a[i]; // ищем мах елемент
// как найти мин подумайте сами
....
rz:=max-min; // разность

[Alex11223]

Ищите максимум и минимум и находите их разность. В чем проблема? Что не получается?
Вот пример поиска максимума:

max:=b[1];
for i:=2 to 30 do
   if b[i]>max then max:=b[i];

[unbanned]

const
  n = 30;

var
  b: array[1..n] of integer;
  min, max, delta: integer;
  i: integer;

begin
  {...}
  min := b[1]; max := b[1];
  for i := 2 to n do 
  begin
    if b[i] > max then
      max := b[i];
    if b[i] < min then
      min := b[i];
  end;
  delta := max - min;
  {...}
end.

ввод/вывод доделать труда не составит?

[Zhentos]

напишите полностью код, то есть от начала до конца... а то ввожу все он мне не считает..

[Alex11223]

Заполните массив вначале (там где {...})...

[unbanned]

напишите полностью код, то есть от начала до конца... а то ввожу все он мне не считает..

по-моему это уже наглость...

[Zhentos]

Сообщение от unbanned

по-моему это уже наглость...

ЭТО НЕ НАГЛОСТЬ А МОЕ НЕПОНИМАНИЕ ПАСКАЛЯ...

[Pein95]

так а что мешает понять хотябы самое простое....

[Alex11223]

как заполнять массив
как выводить массив
еще много полезного про массивы, Паскаль и не только