Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
<span>при выполнении оператора вывода write (13:4) отобразиться __13
</span>При выполнении оператора вывода write (14, 15, 16) отобразиться 141516
Ответ:
900 Кб
Объяснение:
Истинный цвет, или True Color - это метод кодирования изображения, при котором каждый пиксель кодируется 24 битами.
Объем файла = ширина x высота x количество бит на пиксель
Объем = 640 * 480 *24 = 7 372 800 (бит) = 1024*7200 (бит) = 7200 (Кбит) = 900*8 (Кбит) = 900 Кбайт
7. Информационный объём 8 битов * разрешение 2*3dpi(dots per inch) = 8*6 = 48 бит = 6 байт
dpi смущает, без него было бы меньше сомнений
6. 640*480*3(*8 для приведения к битам)/28800 бит/с ≈ <span>263,315 секунд</span>