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

@Gavrik · Регистрация: 29.06.2011

Author24 — интернет-сервис помощи студентам

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

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО =)))

@Vovcheg · 29.06.2011, 15:47

Pascal

uses crt;
const n=10;
var i,min,s,mini:integer; a:array[1..n] of integer;
begin
  clrscr;
  randomize;
  min:=1000;
  for i:=1 to n do
    begin
      a[i]:=random(10)+1;
      write(a[i],' ');
      if a[i]<=min then begin min:=a[i]; mini:=i; end;
      s:=s+a[i];
    end;
  writeln;
  s:=s div n;
  a[mini]:=s;
  for i:=1 to n do write(a[i],' ');
  readln
end.

@Gavrik · 01.07.2011, 01:03 **[ТС]**

Спасибо огромное как раз завтра зачет сдавать! =)))

@Gavrik 0 / 0 / 0 Регистрация: 29.06.2011 Сообщений: 5
		1
	Наименьший член последовательности заменить целой частью среднего арифметического всех членов 29.06.2011, 12:58. Показов 3252. Ответов 2 Метки нет (Все метки) Дана последовательность целых чисел а1, а2,..., аn. Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения. Если в последовательности несколько наименьших членов, то заменить последний по порядку. ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО =))) 0

@Gavrik 0 / 0 / 0 Регистрация: 29.06.2011 Сообщений: 5
	01.07.2011, 01:03 [ТС]	3
	Спасибо огромное как раз завтра зачет сдавать! =))) 0

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

Решение