два цвета <span>н по идее 16 (2^4 где 2 - количество цветов, а 4 - количество елок)</span>
Информацию мы получаем по связи , по телефону от друзей,и из интерната
А) 6
б) 4
в) 7
о) 5
_____________________________________________________________________
Книга - Руслан и Людмила автор А С Пушкин Воронеж год издания 1947г стр -зависит от размера книги а обычно 125
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>