вычислить порядковый номер числа наиболее приближенного к среднему арифметическому максимального и минимального чисел данной посл

[мария71]

помогите пожалуйста.переделываю программу с обычной на прорамму с процедурами и только с ними...посмотрите пожалуйста что не так и где я что упустила...а то чей то она не считает...

Program fff;
const
 n=10;
type
 mas=array[1..n] of integer;
var
 a:mas;
 nearind:integer;
 
Procedure Inp;
var
 i:integer;
begin
   writeln('Данная программа предназначена для вычисления порядкового номера числа ');
   writeln('наиболее приближеного к среднему арифметическому максимального и минимального чисел');
   writeln('данной последовательности*');
   writeln('Введите массив');
   For i:=1 to n do
   begin
      write('введите элемент с индексом i:');
      readln(a[i]);
   end;
end;
Procedure Out;
var
 i:integer;
begin
   writeln('вывод массива на экран**');
   begin
      for i:=1 to n do
         write(a[i]:3);
      writeln
   end;
end;
Procedure Search;
var
 i:integer;
 sred:integer;
 near:integer;
 nearind:integer;
 max:integer;
 min:integer;
begin
     writeln('поиск порядкового номера числа');
     for i:=1 to n do
     If a[i]<min then
       min:=a[i] else
     If a[i]> max then
       max:=a[i];
sred:=(max+min) div 2;
near:=MAXINT;
for i:=1 to n do
   if a[i]-sred < near then
     begin
        near:=a[i]-sred;
        nearind:=i;
 
     end;
end;
begin
   Inp;
   Out;
   Search;
   writeln('nomer chisla:',n);
   writeln('nomer chisla:',nearind);
   readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Greblin]

Оформите код по-нормальному, кнопочка # в редактировании сообщения, а то читать неудобно. Пока вижу только то, что в процедуре Search не заданы начальные значения минимума и максимума, а значит, скорее всего, они нулевые. Сделайте так

writeln('поиск порядкового номера числа');
min := a[1];
max := a[1]; 
for i:=1 to n do
  If a[i]<min then
    min:=a[i] 
  else
    If a[i]> max then
      max:=a[i];

[Serge_Bliznykov]

Greblin, +1


мария71, а ещё Вы неправильно понимаете, что есть локальные и глобальные переменные.
у Вас nearind всегда равен нулю, т.к. вы такой же точно параметер описали в локальных.
Выкиньте его нафиг из локального описания!

вот, например, так (попутно поправил ещё пару мелких косяков...)

procedure Search;
var
  i: integer;
  sred: integer;
  nearValue: integer;
  max: integer;
  min: integer;
begin
  writeln('поиск порядкового номера числа');
  min:=a[1];
  max:=a[1];
  for i := 1 to n do
    if a[i] < min then
      min := a[i] else
      if a[i] > max then
        max := a[i];

  sred := (max + min) div 2;
  {иницилизация поиска. Для начала считаем, что самый близкий - первый элемент}
  nearValue := abs(a[1] - sred);
  nearind := 1;
  for i := 1 to n do
    if abs(a[i] - sred) < nearValue then
    begin
      nearValue := abs(a[i] - sred);
      nearind := i;
    end;
end;