Может фотографировать, интернет, редактировать и т.д
1) чтобы найти R шара нужно V разделить на a и на π
1)
const n=<u>?</u>; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.
2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.
И так,мы имеем 1000 т, прирост 12 % (то есть + 120 тонн) получается:
1) 1000+120=1120 тонн (прирост такой)
2) 1120*20=22400 тонн (за 20 лет будет столько рыбы)
3) 189*20=3780 тонн (отлов за 20 лет)
4) 22400-3780=18620 тонн (остаток ловли за 20 лет)
Количество рыбы в пруду на 20 лет равно 18620 тонн