Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Rosomacha
0 / 0 / 0
Регистрация: 15.11.2009
Сообщений: 20
#1

Элементы массива больше, чем среднеарифметическое

04.12.2009, 15:48. Просмотров 889. Ответов 1
Метки нет (Все метки)

Элементы массива больше, чем среднеарифметическое значение всех элементов, занести в другой массив.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2009, 15:48
Ответы с готовыми решениями:

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

Сформировать массив, в котором элементы в 2 раза больше, чем соответствующие элементы исходного
Составьте программу, которая запрашивает значение элементов одномерного...

Массив. Найти элементы, больше, чем заданное значение, заменить их на нули
Помогите написать программу: В массиве А(100) найти элементы ,больше, чем...

Если элемент второго массива больше соответствующего элемента первого массива, то поменять элементы местами
Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для...

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5
Помогите пожалуйста решить 2 задачи... 1) Если сумма значений элементов с...

1
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
04.12.2009, 16:00 #2
Лучший ответ Сообщение было отмечено Rosomacha как решение

Решение

Rosomacha, Вот...я не проверял...проверьте
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program hhh;
Uses crt;
 Var x,y:array [1..100] of integer;
     i,n,k1,k,s:integer;
     sr:real;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
s:=0;
k:=0;
for i:=1 to n do begin
                 s:=s+x[i];
                 k:=k+1;
                 end;
sr:=s/k;
writeln (' Srednee.Arif = ',sr:4:2);
writeln;
k1:=0;
for i:=1 to n do
  if x[i]>=sr then begin
                   y[i]:=x[i];
                   k1:=k1+1;
                   end;
Writeln (' Hovyi massiv ');
For i:=1 to k1 do
 write (y[i],' ');
 REadln
 end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2009, 16:00

Из массива В удалить числа в двоичном представлении которых единиц больше, чем нулей
Переписать положительные числа из матрицы целых чисел А в массив В. Из массива...

Найти и вывести среднее значение среди элементов массива,которые делятся на 9 и больше,чем 3
1)Дан целочисленный массив из 20 элементов.Элементы массива могут принимать...

Элементы массива, больше 55, заменить на максимальный
Помогите пожайлуста с решением.:) Задайте массив из n элементов. Элементы,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru