Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
№1)
16 бит = 16 / 8 байт = 2 байта
64 байта = 64 * 8 байта = 512 бит
1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит
2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб
2 Гб = 1024 * 2 Мб = 2048 Мб
№2)
200 байт ≈ 0,1953 Кб
0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб
1536 байт = 1,5 Кб
1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб
3 байта = 3*8 бит = 24 бит
24 бит = 24 бит => 3 байта = 24 бита
1000 бит = 125 байт = 0,122 Кб
0,122 Кб < 1 Кб => 1000 бит < 1 Кб
№3)
1) 2 Мб = 2048 Кб
2048 / 100 ≈ 20 файлов можно разместить на дискете
2) 4 Мб = 4096 Кб
4096 / 100 ≈ 40 файлов можно разместить на дискете