Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.
1. Обьем стереоаудиофайла находится по формуле V=2*f*t*I, следовательно V=2*1*48000*16=1536000 бит, потому что меряем в битах,
А ЭТО ДОЛЖНО ВЫГЛЯДИТЬ КАК ЧЕРТЁЖ?
вот так ?