<span>Если вероятности сообщений в наборе p1, ..pN равны между собой, то каждая из них равна 1/N, и формула Шеннона превращается в формулу Хартли.</span>
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.
Правильный адрес: http://org.ca/www.net
Последовательность: ЕГБДАВЖ
Ответ: 3)
//написано на (си/си++)
#include <iostream>
#include <stdio.h>
#include <time.h>
int main(){
setlocale(LC_ALL,"");
srand(time(NULL));
int arr[10];
int mul = 1;
for (int i = 0;i < 10;++i){
arr[i] = rand() % 1000;
if (arr[i] %2 == 0){
mul *= arr[i];
std::cout << arr[i] << "\n";
}
}
std::cout << "Произведение четных чисел:" << mul;
system("pause");
return 0;
}
Красив тот, кто красиво поступает.