<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
Утверждение Миши ложно в 1 части и истинно в 2 части.
Утверждение Коли ложно в обеих частях.
Утверждение Сергея истинно в обеих частях.
Это полностью соответствует условию, ответ - Миша
бита
байт, т.к. 8 бит=1 байт
Кбайт, т.к. 1 Кбайт=1024 байт
1) 45(в десятичной) = 101101(в 2-й)
45|_2
-4 22 |_2
_ -2 11|_2
05 __ -10 5|_2
- 4 02 ___ -4 2 |_2
___ -2 1 __ -2 1
1 ___ 1 __
0 0
2) 100101 в 2-й = 25 в 16-й
1*2^5+0+0+1*2^2+0+1*2^0=37(в 10-й)
37|__16
-32 2
___
5