Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
41 - 3 = 38
38 / 2 = 19
19 - 3 = 16
16 / 2 = 8
8 / 2 = 4
Ответ:21211
1. 252₈=170₁₀;
A8C₁₆=2700₁₀;
2. 315₁₀=100111011₂;
3. 5434₁₀=1232₈;
4. 2470₁₀=51A6₁₆;
5. 110011₂+1010₂=111101₂;
6. 100010₂+101₂=11101₂;
7. 111₂*101=100011₂.
1.истиное высказ.2.ложное.3.предложения которое не является выска.4.истинного высказывания со словами "неверное,что".
begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (2 shl i) * Ord(j >= i));
a.Println;
end.