Uses Crt;
Const
N = 13;
Var
A:array[1..N] of integer;
i,j,Min,B:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i])
End;
WriteLn;
Write('Отсортированный массив:');
For i:= 1 to N do
Begin
Min:=i;
For j:= i+1 to N do
if A[j] < A[Min] then Min:=j;
B:=A[i];
A[i]:=A[Min];
A[Min]:=B;
Write(' ',A[i])
End;
ReadLn
End.
Ответ:
1)3
2)-
Объяснение:
1)600:200=3byte
2)512-сообшения 6
Тут не достаточно информации сколько хотя бы 1 символ весит?
(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина