вот не забудь нажать Объяснение:
var
arr : Array[1..100] Of ShortInt;
temp : ShortInt;
i, j, n : Byte;
begin
Write('n='); ReadLn(n);
Randomize;
for i := 1 to n do
begin
arr[i] := Random(11) - 5;
Write(arr[i], ' ');
end;
WriteLn; WriteLn;
for i := 2 to n do
for j := n downto i do
if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))
then
begin
temp := arr[j - 1];
arr[j - 1] := arr[j];
arr[j] := temp;
end;
for i := 1 to n do
Write(arr[i], ' ');
end.
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
б)с:=16