Дан массив, состоящий из N элементов.Обнулить все элементы, большие среднего арифметического всех элементов массива

@kuroneku · Регистрация: 12.10.2012

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

Дан массив, состоящий из N элементов. Обнулить все элементы, большие среднего арифметического всех элементов массива.

@baquaqa · 24.12.2012, 16:03

Здравствуйте.
Вот пример решения.

Pascal

program _array;
 
const
 
 N=20;
 
var
 
 mas:array [1..N] of integer;
 i,mean,summ:integer;
 
Begin
 
{ input  }
 
 writeln('Сформирован массив: ');
 randomize;
 for i:=1 to N do begin
                  mas[i]:=random(100);
                  inc(summ,mas[i]);
                  write(mas[i],' ')
                  end;
 
{ find mean }
 
 writeln('');
 mean:=Summ div N;
 Writeln('Среднее арифметическое элементов массива: ',mean);
 
{ output }
 
 Writeln('Обнуление элементов массива больших ',mean);                  
 for i:=1 to N  do begin
                   if mas[i]>mean 
                   then mas[i]:=0;
                   write(mas[i],' ');
                  end;  
End.

@kuroneku 0 / 0 / 0 Регистрация: 12.10.2012 Сообщений: 34
		1
	Дан массив, состоящий из N элементов.Обнулить все элементы, большие среднего арифметического всех элементов массива 24.12.2012, 15:30. Показов 2113. Ответов 1 Метки нет (Все метки) Дан массив, состоящий из N элементов. Обнулить все элементы, большие среднего арифметического всех элементов массива. 0

Опции темы

Дан массив, состоящий из N элементов.Обнулить все элементы, большие среднего арифметического всех элементов массива

Решение