Uses crt; const n=10; var a,b,c: array [1..n] of integer; x,y,z,k: integer; begin y:=0; z:=0; for x:=1 to n do begin a[x]:=random(100)+1; if a[x] mod 2=0 then begin inc(y); b[y]:=a[x]; end else begin inc(z); c[z]:=a[x]; end; write(a[x]:4); end; writeln; k:=y; for y:=1 to k do write(b[y]:4); writeln; k:=z; for z:=1 to k do write(c[z]:4); end.
Те́кстовые данные (также текстовый формат) — представление информации в вычислительной системе в виде последовательности печатных символов. В MIME закодированным таким образом данным соответствует тип text/plain. Числовые данные — к ним относятся целые числа, не содержащие дробной части (например, 243), а также вещественные числа, состоящие из последовательности цифр... Графические данные в основном представляют собой список пикселей, из которых состоит изображение. Однако каждая горизонтальная строка пикселей должна занимать блок памяти, выровненный по границе параграфа. Следовательно, если количество байт, необходимых для хранения строки пикселей, не кратно четырем, в каждую строку включается от одного до трех дополняющих байт.
const n=10;
var a,b,c: array [1..n] of integer;
x,y,z,k: integer;
begin
y:=0;
z:=0;
for x:=1 to n do begin
a[x]:=random(100)+1;
if a[x] mod 2=0 then begin
inc(y);
b[y]:=a[x];
end
else begin
inc(z);
c[z]:=a[x];
end;
write(a[x]:4);
end;
writeln;
k:=y;
for y:=1 to k do
write(b[y]:4);
writeln;
k:=z;
for z:=1 to k do
write(c[z]:4);
end.