Const n=25;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to 12 do
if (a[i] mod 2 = 0) then a[i]:=2*a[i];
for i:=14 to n-1 do begin
for j:=14 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;
end;
end;
for i:=1 to n do write(a[i]:4);
<span>end.</span>
Одурелось о и о так новерно
1/ Носитель Емкость
Жесткий диск до нескольких терабайт
CD 700Мб
DVD 4,7Гб
Flash до десятков гигабайт
Blue-ray 25 ГБ (однослойный)
50 ГБ (двухслойный)
100/128 ГБ (BDXL)
2/ Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный.
Различия - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске.
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт.
от точки во всех фигурах прочертил линию.
на пример:чертишь черту у фигуры номер один и получается квадрат.___
|. | с 3 получается надо..
-----. раскрасить.