1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
Различные windows быстрей и лучше работает.
Так как частота дискретизации 16 кГц, то за одну секунду запоминается 16000 значений сигнала.
Разрешение – 32 бита = 4 байта, размер файла 1Мб = 1048576 байт. Время записи определяются следующим образом:
t = 1048576 / (16000 * 4) = 16,38 секунд, что близко к 10 секундам.
Ответ: 1)
Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.<span>
</span>
Если учесть что это изображение 1*1 пиксель то это 2^144