Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка
Частота дискретизации 22.05 кГц = 22050 Гц означает, что в секунду делается 22050 отсчетов уровня звука. Каждый отсчет в одном канале звука кодируется 16 битами, что составляет 16/8 = 2 байта. В стереофайле каналов два, потому на отсчет требуется 2×2 = 4 байта. Секунда звука кодируется 4×22050 = 88200 байтами. А пять секунд потребуют 5×88200 = 441000 байт.
При однобайтной кодировке символ занимает 1 байт, поэтому в документе будет 441 000 символов.
Все 4 задачи в файле "PAS" которые находятся под этим сообщением. Будут вопросы, задавайте в ЛС
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>