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

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.

Похожие записи/страницы:

Leave a Comment

7 + 3 =