Среди встроенных функций напишите функции, относящиеся к статистической категории.

1.

program n1;

var

k, s: integer;

a: array [1..8] of integer;

begin

for k := 1 to 8 do readln(a[k]);  // с клавиатуры вводится массив из 8

s := 0;                                           элементов

for k := 1 to 8 do

if a[k] < 0 then s := s + a[1];  // в цикле 4 раза к s прибавляют 1-ый элемент

writeln(s);                             // выводится s

end.

ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)

2.  

Надо строку if a[k] < 0 then s := s + a[1];

Заменить на строку if a[k] < 0 then s := s + a[k];

Объяснение:

program z1;

const n=5;

var i,s: integer;

a:array[1..n] of integer;

begin

s := 0;

write('Массив : ');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:3);

s:=s+a[i]

end;

writeln;

writeln('Сумма значений элементов целочисленного массива ',s);

writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)

end.

Объяснение:

n - размерность массива

s - сумма значений элементов

В цикле с параметром:

1) задаём значение элемента массива

2) выводим элемент на экран

3) считаем сумму

Выводим на экран сумму

Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)