Program test;
var
a:array[1..4,1..6] of integer;
b:array[1..4] of integer;
i,i1,max,n,sum:integer;
label m1;
begin
write('Введите елементы массива: ');
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
write('a[',i,',',i1,'] = ');
readln(a[i,i1]);
end;
end;
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if i+i1 = 2 then max:=a[1,1]
else if a[i,i1]>max then max:=a[i,i1] else max:=max;
end;
end;
m1:
write('Введите число (не больше ',max,') : ');
readln(n);
if n<=max then begin
for i:=1 to 4 do begin
for i1:=1 to 6 do begin
if a[i,i1]>n then sum:=sum+1;
end;
b[i]:=sum;
writeln('b[',i,'] = ',b[i]);
sum:=0;
end;
end
else begin
writeln('Число больше максимального значения массива, поробуйте снова');
goto m1;
end;
end.
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
Это язык программирования (по мне так довольно лёгкий). Обычно изучают в школах. Для серьёзных, больших программ не используется.
Ответ:
Файл и скрин во вложениях
Объяснение:
Для заданного условия изначально есть 1 рыба. через 10 лет из может быть около 2000 при условии что k близка к 2.
Но, обратите внимание на 2 график, с прогнозом на 18 лет, после 8 лет количество рыбы в пруду, уже не будет расти, а будет колебаться в одном интервале (год спада-год прироста)