В массиве определить количество элементов, меньших среднего арифметического значения

@iskra1107 · Регистрация: 06.10.2010

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

помагите кто может!
в массиве Х=(х1,х,2,..,хn) определить количество элементов, меньших среднего арифметического значения. Не упорядочивая массив, удалить из него элементы, расположенные между максимальным и минимальным.

@Puporev · 17.10.2010, 17:32

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k,k1,k2,imn,imx:byte;
    sr:real;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i],' ');
  sr:=sr+a[i];
 end;
sr:=sr/n;
writeln;
writeln('Среднее арифметическое=',sr:0:1);
k:=0;
for i:=1 to n do
if a[i]<sr then k:=k+1;
writeln('Меньше среднего арифметического=',k,' элементов');
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
if a[i]<a[imn] then imn:=i
else if a[i]>a[imx] then imx:=i;
writeln('Минимальный элемент =',a[imn],' номер=',imn);
writeln('Максимальный элемент=',a[imx],' номер=',imx);
if abs(imn-imx)=1 then write('Между минимальным и максимальным элементов нет!')
else//если есть
 begin
  if imn<imx then//выясним какой раньше
   begin
    k1:=imn;//начало
    k2:=imx;//конец
   end
  else
   begin
    k2:=imn;
    k1:=imx;
   end;
  k:=k2-k1-1;//количество удалений
  for i:=1 to k do
   begin
    for j:=k1+1 to n-1 do
    a[j]:=a[j+1];// к раз сдвигаем конец массива влево 
    n:=n-1;
   end;
  writeln('Массив после сжатия:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.

@ShuherPishet · 27.01.2011, 06:03

А кто нибудь сможет эту же задачку на на С++ написать?

@Dekio · 27.01.2011, 22:36

Сообщение от ShuherPishet

А кто нибудь сможет эту же задачку на на С++ написать?

Не по теме:

Ну я смогу, и что с того?

@ShuherPishet · 28.01.2011, 07:36

да мне просто такую же задачу надо сделать на С++. в универе препод задал, а я в С++, как обезьяна в маркетинге)

@Dekio · 28.01.2011, 10:50

Переписал на С++

C++
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#include <iostream>
#include <cstdlib>
#include <iomanip>
 
using namespace std;
 
int main()
{
    int n,k=0,k1,k2,imn=0,imx=0;
    cout<<"Kol elementov"<<
    cin>>n;
    cout<<endl; 
    int arr[n];
    float sr=0;
    
    for(int i=0; i<n; i++)
    {
            arr[i]=rand()%40;
            cout<<setw(5)<<arr[i];
            sr=sr+arr[i];
    }
    sr=sr/n;
    cout<<endl;
    cout<<"Srednee "<<sr<<endl;
        for(int i=0; i<n; i++)
    if(arr[i]<sr)
    ++k;
        cout<<"Menshe srednego "<<k<<endl;
        for(int i=0; i<n; i++)
        {
            if(arr[i]<arr[imn])
                imn=i;
            if(arr[i]>arr[imx])
            imx=i;
    }   
    cout<<"Max "<<arr[imx]<<" index "<<imx<<endl;
    cout<<"Min "<<arr[imn]<<" index "<<imn<<endl;
    if (abs(imn-imx)==1)
    cout<<"Mezdy nimi net elementov"<<endl;
    else
    {
        if(imn<imx)
        {                  
               k1=imn;
               k2=imx;
                }
            else
                {
                   k2=imn;
                   k1=imx;
                }
    }    
    k=k2-k1-1;
    for(int i=0; i<k; i++)
    {
    for(int j=k1+1; j<n-1; j++)
    arr[j]=arr[j+1];
    n--;
    }
    cout<<"Massiv posle "<<endl;
    for(int i=0; i<n; i++)
    cout<<setw(5)<<arr[i];
    cout<<endl;
    system("pause");
    return 0;
}

@ShuherPishet · 28.01.2011, 12:11

Огромное тебе спасибо!!! но , к сожалению поздно) друг пришёл до меня помог. написал прогу,мне всё объяснил,я разобрался вроде даже чё к чему. вот мой код:

C++
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
37
38
39
40
41
42
43
44
45
46
#include <stdlib.h>
#include <iostream>
#include <math.h>
 
using namespace std;
int main() {
        setlocale(LC_ALL,"rus_rus.1251");
        int n,i,min_i,max_i,j,k,s;
        double *m,*tmp,ave,max,min;
        cout<<"Введите количество элементов массива"<<endl;
        cin>>n;
        m = new double[n];
        for (i=0,ave=0;i<n;i++) {
            cout<<"Введите элемент массива № "<<i+1<<endl;
            cin>>m[i];
            ave+=m[i];
        }
        ave=ave/n;
        for (i=0,s=0;i<n;i++) if (m[i]<ave) s++;
        cout<<"Количество элементов, меньших среднего значения "<<ave<<" = "<<s<<endl;
        min_i=0;
        max_i=0;
        max=m[0];
        min=m[0];
        for (i=1;i<n;i++) { 
            if (m[i]>max) {max=m[i];max_i=i;}
            if (m[i]<min) {min=m[i];min_i=i;}
        }
        k = n-(abs(max_i-min_i)-1);
        tmp = new double[k];
        if (max_i<min_i) {
            for (i=0,j=0;i<=max_i;i++,j++) tmp[j]=m[i];
            for (i=min_i;i<n;i++,j++) tmp[j]=m[i];
        }
 
        else {
            for (i=0,j=0;i<=min_i;i++,j++) tmp[j]=m[i];
            for (i=max_i;i<n;i++,j++) tmp[j]=m[i];
        }
        cout<<"Результат:"<<endl;
        for (i=0;i<k;i++) cout<<tmp[i]<<" ";
        cout<<endl;
 
        system("pause");
return 0;
}

не знаю,правильно цитирую или нет. на форуме совсем недавно)
Люди! Я так понимаю изучать язык лучше всего по книгам,да? )

@_LoneR_ · 28.01.2011, 17:36

Сообщение от ShuherPishet

Я так понимаю изучать язык лучше всего по книгам,да?

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@iskra1107 0 / 0 / 0 Регистрация: 06.10.2010 Сообщений: 4

	В массиве определить количество элементов, меньших среднего арифметического значения 17.10.2010, 14:52. Показов 5735. Ответов 7 Метки нет (Все метки) помагите кто может! в массиве Х=(х1,х,2,..,хn) определить количество элементов, меньших среднего арифметического значения. Не упорядочивая массив, удалить из него элементы, расположенные между максимальным и минимальным. 0

@ShuherPishet 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 6
	27.01.2011, 06:03
	А кто нибудь сможет эту же задачку на на С++ написать? 0

@ShuherPishet 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 6
	28.01.2011, 07:36
	да мне просто такую же задачу надо сделать на С++. в универе препод задал, а я в С++, как обезьяна в маркетинге) 0

В массиве определить количество элементов, меньших среднего арифметического значения

Решение