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>
Да, нужно. Любой принтер требует отключения при заправке чернил
Драйвера, программы, различные оболочки, утилиты, приложения.
Для начала складываем 4+8 и получаем 12 или по 5 горшков.
А потом меняем большие горшки на маленькие.
Один большой равен двум маленьким и наоборот два маленьких равны одному большому.
P.S.:ну во как-то так.думаю что ты поймешь)))
запишем условие: I=40Kб, строк=40, символы=64, N=256, страницы-?
решение: из формулы мощности алфавита найдем вес одного символа
N=2^i, 256=2^i, 2^8=2^i, i=8 бит
выразим информационный объем в битах
I=40Кб*1024*8=327680 бит
найдем из формулы информационного объема общее количество символов в тексте K=I/i=327680/8=40960
узнаем сколько страниц в реферате страницы=40960/40/64=16
это и есть ответ