к элементам первой половины массива добавить минимум, а к элементам второй - добавить максимум

[specialist]

помогите, пожалуйста!!! не работает последний цикл for. Выводит только один элемент массива -первый.Задание звучит так: к элементам первой половины массива добавить минимальный элемент, а к элементам второй половины добавить максимальный элемент.

program zadanie6;
var
 a:array [1..6] of integer;
 i:byte;
 num:integer;
 function fmin:integer;
    var
     min:integer;
    begin
     min:=32767;
     for i:=1 to 6 do
     begin
      if a[i]<min then min:=a[i];
     end;
     fmin:=min;
    end;

     function fmax:integer;
    var
     max:integer;
    begin
     num:=1;
     max:=a[1];
     for i:=2 to 6 do
     begin
      if a[i]>max then max:=a[i];
      num:=i;
     end;
     fmax:=max;
    end;

begin
  writeln('Введите матрицу');
  for i:=1 to 6 do
  begin
  write('a[',i,']=');
  readln(a[i]);
  end;
  writeln('минимальный элемент массива: ',fmin);
  readln;
   writeln('максимальный элемент массива: ',fmax);
  readln;
    writeln('К элементам певой половины массива добавляем наименьшее значение');
     writeln;
    writeln('К элементам второй половины массива добавляем наибольшее значение');
      readln;
   for i:=1 to 6 do  {не работает}
   begin
  if i<4 then
  a[i]:= a[i]+fmin else a[i]:=a[i]+fmax;
     write(a[i],' ');
    readln;
  end;
     writeln('преобразованная матрица ');
    readln;                            
     for i:=1 to 6 do                   
      write('a[',i,']=',a[i]:5);       
    readln;
end.

________
1. Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

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

[Serge_Bliznykov]

Вы допустили ряд ОЧЕНЬ грубых ошибок!
1) в цикле (который "не работает" используете функции. а они написаны с ошибкой - там же используется та же самая переменная i, что и в цикле!

2) Кроме того, всё равно было бы неверно: ведь вычисляя каждый раз заноно минимальное/максимальное значение по элементам массива в том же цикле, который изменяет значения элементов, будет приводить к тому что минимальная, максимальная величины будут постоянно изменяться. А вам этого не нужно!

вот, изучайте:

program zadanie6;
const N = 6;
var
  a: array[1..N] of integer;
  i: byte;
  num: integer;
  aMin, aMax: integer;

function fmin: integer;
var
  i, min: integer;
begin
  min := a[1];
  for i := 2 to N do
  begin
    if a[i] < min then min := a[i];
  end;
  fmin := min;
end;

function fmax: integer;
var
  i, max: integer;
begin
  num := 1;
  max := a[1];
  for i := 2 to N do
  begin
    if a[i] > max then max := a[i];
    num := i;
  end;
  fmax := max;
end;

begin
  writeln('Введите матрицу');
  for i := 1 to N do
  begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  aMin := fmin;
  writeln('минимальный элемент массива: ', aMin);
  readln;
  aMax := fmax;
  writeln('максимальный элемент массива: ', aMax);
  readln;
  writeln('К элементам певой половины массива добавляем наименьшее значение');
  writeln;
  writeln('К элементам второй половины массива добавляем наибольшее значение');
  readln;
  for i := 1 to N do
  begin
    if i <= (N div 2) then
      a[i] := a[i] + aMin
    else
      a[i] := a[i] + fmax;
    write(a[i], ' ');
  end;

  writeln;
  writeln('преобразованная матрица ');
  for i := 1 to N do
    write('  a[', i, ']=', a[i]: 5, ' ');
  readln;
end.

[Pein95]

не знаю как у тебя но у меня вроде все работает....

[specialist]

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

Вы допустили ряд ОЧЕНЬ грубых ошибок!
1) в цикле (который "не работает" используете функции. а они написаны с ошибкой - там же используется та же самая переменная i, что и в цикле!

2) Кроме того, всё равно было бы неверно: ведь вычисляя каждый раз заноно минимальное/максимальное значение по элементам массива в том же цикле, который изменяет значения элементов, будет приводить к тому что минимальная, максимальная величины будут постоянно изменяться. А вам этого не нужно!

вот, изучайте:

....

спасибо огромное, буду исправлять ошибки.