Время t=F/v скорость v=F/t файл F=t*v
файл F=4096 байт =4*1024*8 бит=2^15 бит
v=512 бит/с =2^9 бит/с
t-?
t=2^15 : 2^9=2^6 c=64 c
v=2048 бит/с =2^11 бит/с
t=2^6 c
F=2^11*2^6=2^17 бит =2^4 Кбайта = 16 Кбайт
ответ 16
Var n, i: Integer;
<span> a, min: LongInt;
</span>Begin
<span> min := 30000;
</span><span> readln(n);
</span><span> for i := 1 to n do begin
</span><span> read(a);
</span><span> if (a mod 2=0) and (a < min) then min := a;
</span><span> end;
</span><span> writeln(min);
</span><span>End.</span>
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
64=2^i
i=6 бит на один символ
I=ki
k=I/i=12288 бит/6=2048 символов
1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.