Одномерный массив

[strannik23]

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

[Сtrl]

Напишу за символическую плату в $1, skype в профиле.

[Asker13]

забей, Ctrl, лучше так пиши код.

const
  N = 10;
var
  a: array [1..N] of integer;
  m: real;
  i, k: integer;
begin
  Randomize;
  m := 0;
  for i := 1 to N do begin a[i] := Random(100) + 1; m := m + a[i];  end;
  k := 1;
  for i := 2 to N do if a[i] < a[k] then k := i;
  a[k] := Trunc(m / N);
  ReadLn;
end.

[Сtrl]

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

забей, Ctrl, лучше так пиши код.

Из принципа не хочется. Нет ни "помогите, пожалуйста", ни наработок.

[strannik23]

Asker13, спасибо большое
___________________________
Помогай всем, кому способен помочь. Делай это бескорыстно. Делай это потому, что ты любишь людей и видишь, что в них заключены потенциальные способности. Помогай людям и у тебя всегда будут друзья.
автор: Пил Норман

[strannik23]

что то не робит(( хотя всё нормально компелирует

[Сtrl]

Да? Попросили бы нормально, я бы вам сделал. Еще не поздно, кстати.

[Asker13]

Работает. Вместо поиска наименьшего числа, программа искала наибольшее. Исправил код в своём сообщении.