Const n=10; type ar=array[1..n+1] of integer; var a:ar; i,p:integer; procedure pr(var a:ar; p:integer; var k:integer); begin k:=1; while a[k]<>p do k:=k+1; end; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; p:=17; a[n+1]:=p; pr(a,p,i); if i<n then writeln('Значение 17 найдено, номер элемента = ',i) else writeln('Значения 17 в массиве нет'); end.
Пример: Массив A: 14 5 7 17 25 15 28 0 24 0 Значение 17 найдено, номер элемента = 4
1)звуковой процессор, цифро-аналоговый преобразователь (цап), усилитель. 2)аналоговый звук представляет собой плавную кривую (синусоиду) . в компьютере присутствует только цифровой сигнал, который не может быть плавной кривой. поэтому кривая преобразуется в линию ступенями. а 32-х разрядность говорит о том, что сигнал определённой длины разбивается на 32 части. получается тридцать две мелкие ступени. а если будет 16 бит, то будет 16 ступеней в 2 раза больших в размере. 3)это стандарт цифровой звукозаписи, формат обмена данными между электронными музыкальными инструментами.
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.
Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4