Определить объем памяти для хранения моно-аудио, время звучания которого составит 8 мин, если известно что частота дискритизации =60000 изменений в секунду а глубина кодирования звука= 8 бит
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 var a:array[1..15] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to 15 do begin a[i]:=Random(20)+1; Write(a[i],' '); if a[i]>10 then k:=k+1 end; Writeln; Writeln('k=',k) end.
Var a: array[1..4, 1..4] of integer; i, j, x, y, n: integer; s: string; begin for i:=1 to 4 do for j:=1 to 4 do read(a[i, j]); writeln('Введите "столбцы", чтобы поменять столбцы, или "строки", чтобы поменять строки'); readln(s); writeln('Введите номера столбцов/строк'); readln(x, y); if s='столбцы' then for i:=1 to 4 do begin n := a[i, x]; a[i, x] := a[i, y]; a[i, y] := n; end; if s='строки' then for i:=1 to 4 do begin n := a[x, i]; a[x, i] := a[y, i]; a[y, i] := n; end; for i:=1 to 4 do begin for j:=1 to 4 do write(a[i, j], ' '); writeln; end; end.
