var
a,b,c:array [1..20] of integer;
i,k,l:integer;
begin
randomize;
k:=1;
l:=1;
writeln ('Исходный массив: ');
for i:=1 to 20 do
begin
a[i]:=random(9)+1;
if a[i] mod 2 = 0 then
begin
b[k]:=a[i];
inc(k);
end else
begin
c[l]:=a[i];
inc(l);
end;
write (a[i],' ');
end;
k:=k-1;
l:=l-1;
writeln;
writeln ('Массив четных чисел');
for i:=1 to k do write (b[i],' ');
writeln;
writeln ('Массив нечетных чисел');
for i:=1 to l do write (c[i],' ');
writeln;
readln;
end.
Объяснение:
Байт (англ. byte) (русское обозначение: байт и Б; международное: B, byte)[1] — единица хранения и обработки цифровой информации; совокупность битов, обрабатываемая компьютером одновременно. В современных вычислительных системах байт состоит из 8 бит и, соответственно, может принимать одно из 256 (от 0 до 255) различных значений (состояний, кодов). Однако в истории компьютерной техники существовали решения с иными размерами байта (например, 6, 32 или 36 бит), поэтому иногда в компьютерных стандартах и официальных документах для однозначного обозначения группы из 8 бит используется термин «октет» (лат. octet).
В большинстве вычислительных архитектур байт — это минимальный независимо адресуемый набор данных.
1 килобайт = 1024 байта)