64000 бит/с = 8000 байт/с<em>( в </em><em>1</em><em> байте </em><em>8</em><em> бит)</em>
500 Кбайт = 512000 байт<em>( В </em><em>1</em><em> килобайте </em><em>1024</em><em> байт)</em>
512000 / 8000 = <u>64 </u><u>сек</u>
CONST n = 15
DIM x(1 TO n) AS INTEGER
CLS
PRINT "Введите 15 чисел"
im = 1
FOR i = 1 TO n
INPUT x(i)
IF x(i) > 2 AND x(i) < x(im) THEN im = i
NEXT i
DIM t AS INTEGER
t = x(1)
x(1) = x(im)
x(im) = t
FOR i = 1 TO n
PRINT x(i);
NEXT i
<u><em>Тестовое решение</em></u>
Введите 15 чисел
? 5
? 8
? -3
? 11
? 4
? 8
? 4
? 0
? 5
? 2
? 9
? 3
? 11
? 6
? 4
3 8 -3 11 4 8 4 0 5 2 9 5 11 6 4
А) 1563(10)→1*10^3+5*10^2+6*10^1+3
б) 100111(10)→1*10^5+1*10^2+1*10^1+1
Writeln( 'Src' );
for i := 1 to 10 do begin a[ i ] := random(100); writerln( 'a[ ', i, '] = ', a[ i ] ); if (i = 1) or (a[ i ] < min) then min := a[ i ]; end;
writeln( 'Result' );
for i := 1 to 10 do begin if (odd(i)) then a[ i ] := min; writerln( 'a[ ', i, '] = ', a[ i ] ); end;
Ответ C) 13. Просто посчитайте, не так уж и долго....