program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.
Программа:
const m=7; n=8;
var t:array[1..m,1..n] of integer;
i,j:integer; s,max:real;
begin
Randomize;
writeln('Результаты измерений:');
writeln(' 0 3 6 9 12 15 18 21');
writeln(' -------------------------------');
for i:=1 to m do
begin
for j:=1 to n do
begin
t[i,j]:=random(10)-5;
write(t[i,j]:4);
end;
writeln;
end;
max:=-200;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+t[i,j];
s:=s/n;
if s>max then max:=s;
end;
writeln('max = ',max:5:1);
end.
Пример:
Результаты измерений:
0 3 6 9 12 15 18 21
-------------------------------
-4 4 2 -4 0 -1 4 1
-5 -2 2 3 4 0 -5 -3
-4 -4 2 0 -3 -1 -1 -4
-5 -3 4 -3 -4 1 -4 3
4 -1 -5 -1 -5 2 1 -1
-1 2 3 -1 -5 3 2 4
1 -5 -5 -1 0 0 1 2
max = 0.9
Рекомендуется использовать формулу Мальтуса, изменения числа рыб N= k*N-q*N*N
Если за начальное количество рыб принять N0,то через год рыб в пруду будет
N1=N0+K*N0-q*N0*N0,через два года N2=N1+K*N1-q*N1*N1 ...
В таблице Excel в ячейку A1 введите значение к=1,в ячейку B1 значение q=0,01,в ячейку С1 значение N0=100, в ячейку В2 формулу =C1+A1*C1-B1*C1*C1 (это количество рыб за 1 год) , в ячейку В3 формулу
=B2+$A$1*B2-$B$1*B2*B2(количество рыб за 2 год) , скопируйте формулу с ячейки В3 до ячейки В11.
<span>Изменяйте значение ячейки А1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.</span>
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;