Помогите срочно надо.Вывести массив М девяти элементов. Вычислить разность между минимальными и максимальными элементами. Использовать подпрограммы.В паскале ABC

1

Ответы и объяснения

Лучший Ответ!
  • Tlalok
  • почетный грамотей
2013-03-31T19:25:11+04:00

const

  n = 9;

function Max(a:array[1..n] of integer):integer;

var

  m, i:integer;

begin

  m := a[1];

  for i := 2 to n do

    if m< a[i] then

      m := a[i];

  Max := m;

end;

 

function Min(a:array[1..n] of integer):integer;

var

  m, i:integer;

begin

  m := a[1];

  for i := 2 to n do

    if m > a[i] then

      m := a[i];

  Min := m;

end;

 

var

  a:array[1..n] of integer;

  i:integer;

begin

  randomize;

  writeln('Исходный массив:');

  for i := 1 to n do

  begin

    a[i] := random(21) - 10;

    write(a[i], ' ');

  end;

  writeln;

  writeln('Max = ', Max(a));

  writeln('Min = ', Min(a));

  writeln('Max - Min = ', Max(a) - Min(a));

end.