Var ar:array[1..10] of integer; ar1:array[1..10] of integer; ar2:array[1..10] of integer; i,n1,n2:integer; begin; randomize; writeln('First array:'); for i:=1 to 10 do begin; ar[i]:=random(10,99); if odd(ar[i]) then //если нечётно begin; inc(n1); ar1[n1]:=ar[i]; end else begin; inc(n2); ar2[n2]:=ar[i]; end; write(ar[i]:4); end;
writeln; writeln('Array A:'); for i:=1 to n1 do write(ar1[i]:4);
writeln; writeln('Array B:'); for i:=1 to n2 do write(ar2[i]:4); end.
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks;
namespace Prijki_dlin { class Program { static void Main(string[] args) { // созд и заполн масс double nach = 4.05, kon = 6.9; double[] c = new double[11]; Random r = new Random(); for (int i = 1; i < 11;i++ ) { c[i] = nach + r.NextDouble() * (kon - nach); Console.WriteLine(Math.Round(c[i],2)); } // ввод ограничения длины double l = Convert.ToDouble(Console.ReadLine()); for (int i = 1; i < 11; i++) { if (c[i] >= l) { Console.WriteLine(c[i]); } } Console.ReadKey(); } }}
Х= t*n*i*k, где t- время (с.), n- частота дискретизации (Гц), i- глубина кодирования (бит), k- количество каналов записи. Так как запись моно, количество каналов k=1. Получаем:
ar1:array[1..10] of integer;
ar2:array[1..10] of integer;
i,n1,n2:integer;
begin;
randomize;
writeln('First array:');
for i:=1 to 10 do begin;
ar[i]:=random(10,99);
if odd(ar[i]) then //если нечётно
begin;
inc(n1);
ar1[n1]:=ar[i];
end
else
begin;
inc(n2);
ar2[n2]:=ar[i];
end;
write(ar[i]:4);
end;
writeln;
writeln('Array A:');
for i:=1 to n1 do
write(ar1[i]:4);
writeln;
writeln('Array B:');
for i:=1 to n2 do
write(ar2[i]:4);
end.