Сначала небольшие пояснения.
Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно.
Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.
Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.<span>
</span>
const n=10;
var
x: array [1..n] of integer;
kmax,k, smax : integer;
begin
randomize;
smax:=-99;
for k:=1 to n do
begin
x[k]:=random(70)-35;
write(x[k],' ');
if x[k]>smax then
begin
smax:= x[k];
kmax:=k;
end;
end;
writeln();
writeln(smax);
writeln(kmax);
end.
Конечно опасней биологический вирус, он может заразить разными балячками людей и животных. А компьютерный вирус может лишь сломать компьютер, и то не всегда например если стоит антивирусник.