Как найти среднее значение в массиве паскаль

Перейти к содержанию

const N = 10;

type

    arrtype = array[1..N] of integer;

var

    arr: arrtype;

    i: byte;

    avrg: real;

 
procedure fill_array(var a: arrtype); 

begin

    for i:=1 to N do a[i]:=random(50)+1;

end;



  


                       
  




 
function average(a:arrtype):real;

var sum:integer;

begin

    sum := 0;

    for i:=1 to N do sum:=sum+a[i];

    average := sum / n;

end;

 
begin

    randomize;

    fill_array(arr);

    for i:=1 to N do write(arr[i]:4);

    writeln;

    avrg := average(arr);

    writeln(avrg:3:2);

end.

   3  31  24  25  42   5  26  39  27  43

26.50

#include < stdio.h>

#define N 10

float average(int arr[]);


main() {

    int a[N];

    int i, min1, min2, buff;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        a[i] = rand() % 100;

        printf("%3d", a[i]);

    }

    printf("n %.2fn", average(a));

}


float average(int arr[]) {

    int sum, i;

    sum = 0;

    for (i=0; i< N; i++) sum += arr[i];

    return sum/N;

}



  


                       
  

 82 35  2 32 56 55 33 41 99 45

 48.00

from random import random

N = 10

 
def average(a):

    s = 0

    for i in range(N):

        s += a[i]

    return s/N

 
arr = [0] * N

for i in range(N):

    arr[i] = int(random() * 100)


b = average(arr)

print(arr)

print(b)

[30, 63, 67, 29, 29, 54, 30, 29, 41, 0]

37.2

Среднее
арифметическое (обозначим как SA)
всех значений элементов массива
подсчитывается по формуле:

SA
= S / К,

где
S – это сумма всех
элементов, K – количество
просуммированных элементов. Алгоритмы
поиска суммы и количества элементов
были подробно рассмотрены в п/п 2.2.3.1. Но
в тех случаях, когда SA
находят только среди элементов,
удовлетворяющих некоторому условию,
следует учитывать тот факт, что таких
элементов в массиве может и не быть, и
тогда К = 0. Чтобы избежать деления на 0,
необходимо при получении значения SA
осуществлять соответствующую проверку:
К > 0. На рис. 9 приведена блок-схема
алгоритма поиска SA
положительных элементов и фрагмент
программы.

Среднее
геометрическое значений массива
(обозначим через SG)
вычисляется по следующей формуле:

SG
= ^K
P,

где
Р – произведение элементов массива, K
– количество элементов. Аналогично,
как и в алгоритме поиска SА
элементов, удовлетворяющих некоторому
условию, необходимо учитывать вариант
К = 0. На рис. 10 приведена блок-схема
алгоритма поиска среднего геометрического
отрицательных элементов массива и
соответствующий фрагмент программы.

…

S:=
O;

K
:= 0;

for
i:=1 to N do

if
a[i]> 0 then

begin

S
:= S + A[i];

K
:= K +1;

end;

if
K > 0 then

begin

SA
:= S/K;

writeln
(‘ SA= ‘, SA);

end

else

writeln(‘
K = 0 ‘);

… *

Рис.
9

…

P:=
1;

K
:= 0;

for
i:=1 to N do

if
A[i]< 0 then

begin

P
:= P* A[i];

K
:= K +1;

end;

if
K > 0 then

begin

SG
:= EXP(1/K * LN(P)) ;

writeln
(‘ SG= ‘, SG);

end

else

writeln(‘
K = 0 ‘);

…

Рис. 10

2.2.3.3. Обработка элементов одномерного массива, имеющих чётные индексы

В
некоторых задачах требуется обработать
не все подряд элементы массива, а лишь
те, индексы которых кратны определённому
числу.

Пусть,
например, требуется умножить на 2 значения
элементов с чётными индексами. Понятно,
что обработку массива придётся начать
с элемента, имеющего номер 2, т.е. переменная
i,
обозначающая
индекс элемента, примет начальное
значение, равное
2. Выбирать из массива элементы для
обработки следует «перешагивая»
через элемент, т.е. индекс i
будет изменяться с шагом
2.

Б

лок-схема
описанного алгоритма приведена на
рисунке 11. Фрагмент
программы записан ниже. В нём использован
не привычный уже цикл со счётчиком (цикл
FOR),
а универсальный цикл «пока»
(цикл WHILE),
который, в отличие от FOR,
приспособлен к работе
с любым шагом (в том числе и с шагом 2).

i:=2;

while
i < =N do

begin

A[ i ] := A[ i ] * 2;

i:=i+2;

end;

…
Рис.11

Следует
обратить внимание, что в случае работы
с нечетными индексами начальное значение
i:=1,
i
будет изменяться с шагом 2. С помощью
подобных алгоритмов можно обрабатывать
элементы массива с индексами, кратными
любому числу. Например,
найти сумму элементов с индексами,
кратными 3 ( i=3;
шаг +3) заменить нулём каждый
четвёртый элемент массива и т.п.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

PROGRAM ex2p39;
var
   K,B:array[1..256] of real;
   i,n,nmax,nmin:integer;
   max,min,x:real;
BEGIN
  ClrScr;
  writeln('vvedite razmernost massiva: ');
  read(i);
    writeln('Massiv K[N] : ');
    for n :=1 to i do
      begin
        K[N] :=sin(n)*n; {заполняем массив K[N]}
    B[N] :=K[N]; {формируем массив B[N] с которым будем работать}
        write (K[n]:0:2, ' ');
      end;
  min :=B[1]; {Одновременный поиск МИН и МАКС}
  max :=B[1];
    for n :=1 to i do
      begin
        if B[n]>max
          then begin
            max :=B[n];
            nmax :=n; {номер МАКС}
               end
          else if B[n]<min
            then begin
              min :=B[n];
              nmin :=n; {номер МИН}
                 end;
      end;
  x :=min; {Используем дополнительную ячейку для перестановки элементов массива}
  B[nmin] :=max;
  B[nmax] :=x;
  writeln;
  writeln('Massiv B[N] : ');
    for n :=1 to i do write(B[n]:0:2, ' ');
  readkey;
END.