Const n=7; type V=array[1..n] of real; procedure mReplace(t:real;var a:V;var k:integer); var i:integer; begin k:=0; for i:=1 to n do if a[i]<t then begin a[i]:=t; Inc(k) end end;
var T:real; i,k1,k2:integer; P,C:V; begin Write('Введите значение T: '); Read(T); Writeln('Введите элементы массива P'); for i:=1 to n do Read(P[i]); Writeln('Введите элементы массива C'); for i:=1 to n do Read(C[i]); mReplace(T,P,k1); mReplace(T,C,k2); if k1>k2 then begin Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ') end else if k2>k1 then begin Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ') end else Writeln('Число замен в массивах равно ',k1) end.
Тестовое решение: Введите значение T: 0.005 Введите элементы массива P 0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47 Введите элементы массива C -5.74 0.0001 4.1 7.24 -1.5 2.9 0.004 Измененнный массив Р 0.005 1.54 0.005 0.005 0.005 1.2 0.005
1. 5.3 МБ = 5.3 * 2^10 КБ = 5.3 * 2^20 Байт = 5557452,8 байт.
2. 7032 бит = 7032 / 8 байт = 879 байт = 879 / 1024 Кбайт ~ 0.9 Мбайт.
3. 1.7 ГБ = 1.7 * 2^10 МБ = 1740,8 МБ = ~1741 МБ
4. 3076 КБ / 1024 = 3,00390625 МБайт = ~ 3Мбайт
5. 1024000 бит = 1024000 / 8 байт = 128000 байт / 1024 КБ = 125 КБ / 1024 = 0.12 МБ / 1024 = ~0.0001 Гб.
При повышение приставки, например, из КБ в МБ, значение следует умножать на 1024(2^10 степени). При понижении, соответственно, делить.
Для того, чтобы перевести из битов в байты, нужно количество бит разделить на 8(2^3).