const n=11;
var b:array[1..n] of integer;
i,j,c,a:integer;
begin
randomize;
for i:=1 to n-1 do begin
b[i]:=random(50);
write(b[i]:3);
end;
writeln;
for i:=1 to n-2 do
for j:=n-2 downto i do
if b[j]>b[j+1] then begin
c:=b[j];
b[j]:=b[j+1];
b[j+1]:=c;
end;
writeln;
writeln('Введите число а');
read(a);
writeln('a= ',a);
b[n]:=a;
for i:=1 to n do
write(b[i]:3);
end.
ДВЕ ЗАДАЧИ В ОДНОЙ
const N=10;
var
a:Array[1..N] of integer;
i,k,sum,c,b:integer;
begin
Randomize;
k:=0;
sum:=0;
for i:=1 to N do begin
a[i]:=random(61);
if a[i]>30 then k:=k+1;
if a[i]<30 then sum:=sum+a[i];
write(a[i],' ');
end;
writeln;
writeln(k,' чисел превышает 30');
writeln('сумма чисел = ',sum);
writeln;writeln;
writeln('введите число a');
readln(c);
writeln('введите число b (b должно быть больше a)');
readln(b);
for i :=c to b do
write(i,' ');
readln;
end.
Колонки, наушники и микрофоны
Современный компьютер невозможно представить без звуковой карты, предназначенной для вывода качественного звука. Чтобы услышать звук, к ее выходу нужно подключить какое-либо устройство, которое его воспроизводить.
Обычно звуковая карта имеет, как минимум, два звуковых выхода: на наушники и линейный.
К выходу для наушников присоединяют наушники (головные телефоны). Это могут быть как бытовые, так и профессиональные наушники, исходя из индивидуальных потребностей пользователя. Неплохие модели наушников предлагают компании Sony и Koss.
Однако чаще возникает потребность выводить звук через внешние динамики. Одно время достаточно популярными были дешевые акустические системы, которые называли мультимедийными. Они подключались к линейному выходу звуковой карты и звучали не намного лучше, чем системный динамик. Для восприятия музыки или звуковой дорожки фильмов такие колонки были непригодны.
В последние годы выпускается достаточно много моделей компьютерных колонок со встроенными усилителями, которые довольно качественно воспроизводят звук. Часто такие колонки бывают двух– или трехполосными. Кроме того, они являются экранированными, поэтому их можно ставить около компьютерного монитора.
Внимание! Если программа не работает, обновите версию!
begin
var M:=SeqRandom(ReadInteger('n='),-99,99).Sorted.ToArray; M.Println;
var a:=ReadInteger('Введите вставляемое число:');
var i:=M.FindIndex(t->t>a);
if i>-1 then M:=M?[:i]+Arr(a)+M?[i:]
else M:=M+Arr(a);
M.Println
end.