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

@uralic · Регистрация: 25.02.2016

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

Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2, ..., an заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения. Если в последовательности несколько членов со значением min(a1, a2, ..., an), то заменить последний по порядку.

(Помогите решить в паскале)

@Skyer · 17.12.2016, 21:03

Держи. Числа от -25 до 25. Количество элементов 20

Pascal

const N = 20;
var
  a:array[1..N] of integer;
  i,sum,min:integer;
  f:boolean;
begin
  sum :=0;
  min := maxint;
  for i:= 1 to N do begin
    a[i]:=random(51)-25;
    sum := sum + a[i];
    if a[i]<min then min:= a[i];
    write(a[i],'  ');
  end;
  writeln;
  writeln('min = ',min);
  writeln('sum = ',sum);
  sum := trunc(sum / N);
  i:=N;
  f:=true;
  while (f = true) and (i>0) do begin
    if a[i]=min then begin
      a[i]:=sum;
      f := false;
    end;  
    i:=i-1;
  end;  
  for i:= 1 to N do
    write(a[i],'  ');
end.

@uralic · 17.12.2016, 21:51 **[ТС]**

Спасибо огромное!!!

@uralic 1 / 1 / 0 Регистрация: 25.02.2016 Сообщений: 15
		1
	Наименьший член последовательности заменить целой частью среднего арифметического всех членов. 17.12.2016, 19:58. Показов 2109. Ответов 2 Метки нет (Все метки) Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2, ..., an заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения. Если в последовательности несколько членов со значением min(a1, a2, ..., an), то заменить последний по порядку. (Помогите решить в паскале) 0

@uralic 1 / 1 / 0 Регистрация: 25.02.2016 Сообщений: 15
	17.12.2016, 21:51 [ТС]	3
	Спасибо огромное!!! 0

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

Решение