В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического

08.04.2013, 16:53. **Показов** 9523. **Ответов** 2

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

2. В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического элементов массива.
По 2 задаче есть наработачка, но не уверен что она верная, могу скинуть.

@Yudgin · 17.10.2013, 18:32

C

#include <stdio.h>
#include <ctype.h>
 
int main(int argc, char *argv[])
{
  int n;
  printf("Vvedite kolichestvo elementov >2: \n");
  scanf("%d",&n);
  if(n<3) {printf("Malo elementov!\n");
  return 0;}
  else { printf("Vvedite massiv cheres probel: \n");}
  double a[n],s=0;
  for(int i=0;i<n;i++){scanf("%lf",&a[i]);}
  for(int i=0;i<n;i++){s=s+a[i];}
  s=s/n;
  int k=0;
  for (int i=0;i<n;i++)
    if (a[i]<s) k++;
  printf("%u\n",k);
    return 0;
}

@ildwine · 17.10.2013, 18:51

Pascal

var
  x : array[1..100] of integer;
  i, k, s, n : integer;
  a : real; 
begin
  randomize;
  k := 0;
  s := 0;
  repeat
    writeln('введите n');
    readln(n)
  until (n > 1) and (n <= 100);  
  writeln('исходный массив: ');
  for i := 1 to n do
  begin
    x[i] := random(20) - 10;
    s := s + x[i];
    write(x[i]:4)
  end;
  writeln;
  a := s / n;
  writeln('среднее арифметическое равно: ', a);
  writeln('элементы меньшие среднего: ');
  for i := 1 to n do
    if x[i] < a then
    begin
      inc(k);
      write(x[i]:4)
    end;
    writeln;
  writeln('количествно таких элементов: ', k)  
end.

smit44
		1
	В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического 08.04.2013, 16:53. Показов 9523. Ответов 2 Метки нет (Все метки) 2. В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического элементов массива. По 2 задаче есть наработачка, но не уверен что она верная, могу скинуть.

	17.10.2013, 18:51

Опции темы

В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического

Решение