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

09.06.2009, 06:09. **Показов** 2015. **Ответов** 5

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

Здравствуйте, у меня возникла необходимость решить сложную задачку на языке Pascal, как написать рабочий код к такому условию, честно говоря не знаю. Подскажите пожалуйста с кодом или хотя бы укажите, где можно что-то похожее, уже решенное найти

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

@mamedovvms · 09.06.2009, 06:32

Pascal

uses crt;
var a:array[1..100] of integer;
     n,i,min,sum,k:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 
a[1]:=random(50);
min:=a[1];
k:=1;
sum:=a[1];
 
 for i:=2 to n do  
  begin
   a[i]:=random(50);
   sum:=sum+a[i];
   write(a[i],' ');
   if a[i]<=min then
     begin
       k:=i;
       min:=a[i];
     end;
  end;
writeln;
a[k]:=(sum div n);
 
for i:=1 to n do
 write(a[i],' ');
readln;
end.

@Puporev · 09.06.2009, 06:51

Если в последовательности несколько наименьших членов, то заменить последний

Что бы найти последний, надо искать с конца
for i:=n downto 1 do

@mamedovvms · 09.06.2009, 06:55

не обязательно ведь я же написал

if a[i]<=min then
то есть как раз и будет последний

Добавлено через 37 секунд
Согласен?????

@Puporev · 09.06.2009, 06:59

Да, но просто чтобы каздый раз не придумывать что писать, лучше всегда первый(неважно что) искать с начала, а последний с конца. Должна быть как бы система, привычка что ли.

@mamedovvms · 09.06.2009, 07:07

ну кому как я согласен что это дело привычки, но разницы никакой потому как все равно приходится проходить весь массив, единственное что страдает эффективность программы

newona
		1
	Наименьший член данной последовательности заменить целой частью среднего арифметического всех ее членов 09.06.2009, 06:09. Показов 2015. Ответов 5 Метки нет (Все метки) Здравствуйте, у меня возникла необходимость решить сложную задачку на языке Pascal, как написать рабочий код к такому условию, честно говоря не знаю. Подскажите пожалуйста с кодом или хотя бы укажите, где можно что-то похожее, уже решенное найти Дана последовательность целых чисел a1, a2, …, an. Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменений. Если в последовательности несколько наименьших членов, то заменить последний по порядку.

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.06.2009, 06:51	3
	Если в последовательности несколько наименьших членов, то заменить последний Что бы найти последний, надо искать с конца for i:=n downto 1 do 1

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	09.06.2009, 06:55	4
	не обязательно ведь я же написал if a[i]<=min then то есть как раз и будет последний Добавлено через 37 секунд Согласен????? 1

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.06.2009, 06:59	5
	Да, но просто чтобы каздый раз не придумывать что писать, лучше всегда первый(неважно что) искать с начала, а последний с конца. Должна быть как бы система, привычка что ли. 1

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	09.06.2009, 07:07	6
	ну кому как я согласен что это дело привычки, но разницы никакой потому как все равно приходится проходить весь массив, единственное что страдает эффективность программы 2