Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического

@Маргоша18 · Регистрация: 01.04.2012

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

@Владимир_ВМ · 30.04.2012, 00:40

Pascal

var
a:array[1..20]of integer;
s:real;
i,n,sround:integer;
begin
randomize;
s:=0;
write('vvedite n=');read(n);
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i]:3);
    s:=s+a[i];
  end;
s:=s/n;
writeln('ñðåäíåå àðèôìåòè÷åñêîå=',s:8:4);
sround:=round(s);
writeln('èçìåíåííûé ìàññèâ:');
for i:=1 to n do
  begin
    if a[i]<s then a[i]:=sround;
    write(a[i]:3);
  end;
end.

@Маргоша18 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 7
		1
	Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического 30.04.2012, 00:24. Показов 2304. Ответов 1 Метки нет (Все метки) В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением среднего арифметического,округленного до целого.Упорядочить новый массив по возростанию __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического

Решение