Var a,b:integer; begin write('Введите первое число - '); readln(a); write('Введите второе число - '); readln(b); writeln(a,'+',b,'=',a+b); writeln(a,'-',b,'=',a-b); writeln(a,'/',b,'=',a/b); writeln(a,'*',b,'=',a*b); <span>end.</span>
Var i:integer; a:array[10..20]of integer; begin writeln('Исходный массив:'); for i:=10 to 20 do begin a[i]:=random(23); writeln(a[i]); end; for i:=10 to 20 do if (a[i]>=10) and (a[i]<=20) then a[i]:=a[i]*5; writeln('Преобразованный массив:'); for i:=10 to 20 do writeln(a[i]); <span>end.</span>
Думаю, что это пишущий DVD-RW-дисковод. 32 - скорость чтения DVD-дисков 18 - скорость записи DVD-дисков 45 - скорость чтения CD-дисков. Мне кажется, так.