Ответ:
Файл и скрин во вложениях
Объяснение:
Для заданного условия изначально есть 1 рыба. через 10 лет из может быть около 2000 при условии что k близка к 2.
Но, обратите внимание на 2 график, с прогнозом на 18 лет, после 8 лет количество рыбы в пруду, уже не будет расти, а будет колебаться в одном интервале (год спада-год прироста)
Ответ : <span>10774
_____________________________________</span>
Program a1;
Uses crt;
const n=8;
Var a:array[1..n] of integer;
ch,s:integer;
sr:real;
i:byte;
Begin
Writeln('Массив');
For i:=1 to n do
begin
a[i]:=random(101)-50;
writeln(a[i]);
end;
For i:=1 to n do
s:=s+a[i];
sr:=s/n;
For i:=1 to n do
if a[i] mod 2 = 0 then ch:=ch+1;
s:=0;
For i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
Writeln('Ответы');
Writeln('1) Среднее значение элементов массива = ', sr);
Writeln('2) Количество чётных элементов = ', ch);
Writeln('3) Сумма элементов массива с нечётными номерами = ', s);
End.
Что то не правельно как 20 метро 23 троллейбусом неверно сложена задача