Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
Ответ:
Файл и скрин во вложениях
Объяснение:
Для заданного условия изначально есть 1 рыба. через 10 лет из может быть около 2000 при условии что k близка к 2.
Но, обратите внимание на 2 график, с прогнозом на 18 лет, после 8 лет количество рыбы в пруду, уже не будет расти, а будет колебаться в одном интервале (год спада-год прироста)
1) Выбор 1 из 16 снижает неопределенность в 16 раз. 16=2^4, следовательно получается 4 бита информации.
2) Выбор 1 из 256 снижает неопределенность в 256 раз. 256=2^8, следовательно получается 8 бит информации.
135 137 175 173 157 153 315 317 375 357 351 371 571 537 517 573 513 531 753 751 735 731 715 713
и так таких чисел 24!