Объяснение:
К сожалению, в процессе революции в науке, происходившей с понятиями времени, энергии, импульса и массы, Эйнштейн, кроме прочего, оставил после себя два различных и противоречащих друг другу определения массы. Из-за этого всё, что мы говорим и имеем в виду, можно интерпретировать двумя очень разными При этом непосредственно в физике никакой путаницы нет. Специалисты точно знают, о чём идёт речь, и знают, как делать предсказания и использовать подходящие уравнения. Весь во только в значении самого слова. Но слова важны, особенно когда мы беседуем о физике с людьми, не являющимися экспертами в этой области, и с учениками, для которых уравнения пока ещё не полностью понятны.
N = 13;
Var
A:array[1..N] of integer;
i,Min:integer;
Begin
Randomize;
Min:=1;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if A[Min]>A[i] then Min:=i;
End;
WriteLn;
WriteLn(Min)
End.
Const
N = 13;
Var
A:array[1..N] of integer;
i,j,Min,B:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
End;
WriteLn;
WriteLn;
For i:= 1 to N do
Begin
Min:=i;
For j:=i+1 to N do
if A[Min]>A[j] then Min:=j;
B:=A[Min];
A[Min]:=A[i];
A[i]:=B;
Write(A[i],' ')
End;
End.
Const
N = 13;
Var
A:array[1..N] of integer;
i,j,Max,B:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
End;
WriteLn;
WriteLn;
For i:= 1 to N do
Begin
Max:=i;
For j:=i+1 to N do
if A[Max]<A[j] then Max:=j;
B:=A[Max];
A[Max]:=A[i];
A[i]:=B;
Write(A[i],' ')
End;
End.