Обработка одномерных массивов

[Mari.Prosto Mari]

Помогите, очень прошу, пожалуйста!!!!!!!!

Дана последовательность целых чисел а1, а2, …, аn. Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменений.

[ROMA2PVT]

ваши наработки в студию.

[Mari.Prosto Mari]

а что это значит?

[ROMA2PVT]

то что вы пытались сделать сами.

[ROMA2PVT]

ладно вот:

uses
  CRT;
var
  a:array [1..100] of integer;
  i,n,sum,min,imin:integer;
  sr:real;
begin
Clrscr;
Randomize;
write('Введите количество элементов: ');
 readln(n);
 writeln('Исходный массив: ');
  for i := 1 to n do
       begin
          a[i]:=Random(15)-4;
          write(a[i]:2,' ');
          sum:=sum+a[i];
       end;
         writeln;
       sr:=sum/n;
       writeln('Среднее арифметическое:=',round(sr));
       min:=a[1];
       imin:=1;
        for i := 1 to n do
         if a[i]<min then
             begin
               min:=a[i];
               imin:=i;
             end;
               writeln('MIN[',imin,']:=',min);
             for i := 1 to n do
                if i=imin then
                    begin
                       a[i]:=0;
                    end;
                    writeln;
                    writeln('Результирующий массив: ');
                for i := 1 to n do
                      begin
                        write(a[i]:2,' ');
                      end;
readkey;
end.

[Mari.Prosto Mari]

спасибо за помощь!!!!!!!!!!

[DoDge_VipeR]

если

заменить целой частью среднего арифметического

то не

round(sr);

a

trunc(sr);

и вот тут

a[i]:=0;

нужно заменить на

a[i]:=trunc(sr);

[ROMA2PVT]

DoDge_VipeR ошибся вчера под вечер.