<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
< первое больше
> меньше
>меньше
>меньше
Гиперте́кст (англ. hypertext) — термин, обозначающий систему из текстовых страниц, имеющих перекрёстные ссылки.
Примерами гипертекста являются энциклопедии, компьютерные сети, веб-сайты, в которых можно переходить с одной страницы на другую и выполнять поиск по ключевым словам.
В компьютерной терминологии гипертекст — это текст, сформированный с помощью языка разметки (например, HTML) с расчетом на использование гиперссылок.
Рекомендуется использовать формулу Мальтуса, изменения числа рыб 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>
<span>Program a1; </span>
<span>var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; </span>
<span>begin </span>
<span>writeln('Vvedite massiv Y: '); {просим ввести массив} </span>
<span>for k:=1 to 14 do read(y[k]); {записываем массив} </span>
<span>s1:=0; s2:=0; {счётчики на 0} </span>
<span>minY:=y[1]; {присваиваем первому значению минимум...} </span>
<span>for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} </span>
<span>maxY:=y[1]; {присваиваем второму значению максимум...> <} </span>
<span>for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} </span>
<span>m:=y[s1]; {используя переменную m меняем местами элементы} </span>
<span>y[s1]:=y[s2]; </span>
<span>y[s2]:=m; </span>
<span>writeln('Novyi massiv: '); </span>
<span>for k:=1 to 14 do write(y[k],' '); {выводим новый массив} </span>
<span>readln </span>
<span>end.</span>
