массивы

[-ushёl-]

т.е. ты имеешь ввиду вот так:
const
n=abcdifghij;
b:array[1..n]of char;
ок!а как тогда n=Random(10)?????не понимаю нечегошеньки=(

[Лунатик222]

Сообщение от -ushёl-

т.е. ты имеешь ввиду вот так:
const
n=abcdifghij;
b:array[1..n]of char;
ок!а как тогда n=Random(10)?????не понимаю нечегошеньки=(

объявляешь переменную char, допустим n:char и пишешь

N:=chr(random(255));

Это если символы просто, если только буквы то в диапазоне от 65(А) до 90(Z) потом заносишь эту переменную в свой массив

[-ushёl-]

var a:array [1..10] of char;
b:array [1..10] of boolean;
i,j:integer;
n:char;
begin
{n:=chr(random(255));}
randomize;
for i:=1 to 10 do
begin
a[n]:=chr(random(255));{здесь компилятор выдаёт ошибку,нельзя приобразовывать тип char к integer?????}
write(a[i], ' ');

[Лунатик222]

Сообщение от -ushёl-

var a:array [1..10] of char;
b:array [1..10] of boolean;
i,j:integer;
n:char;
begin
{n:=chr(random(255));}
randomize;
for i:=1 to 10 do
begin
a[n]:=chr(random(255));{здесь компилятор выдаёт ошибку,нельзя приобразовывать тип char к integer?????}
write(a[i], ' ');

var a:array [1..10] of char;
    b:array [1..10] of boolean;
    i,j:integer;
    n:char;
begin
randomize;
for i:=1 to 10 do
begin
 a[i]:=chr(random(255));
 write(a[i], ' ')

[-ushёl-]

УФ!!!!=)ВСЁ ОТДУПЛИЛ!!!!!СПАСИБО ВСЕМ!РЕСПЕКТЪ ЛУННОМУ!!!!ВОТ КОД,ВРОДЕ ПОШЛО!!! PS: n-оказалось то и ни к чему.
program first;
var a:array [1..10] of char;
b:array [1..10] of boolean;
i,j:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=chr(random(255));
write(a[i]:6,'|');
end;
writeln;
for i:=1 to 10 do
begin
j:=random(1+1);
if j=1 then
b[i]:=true
else b[i]:=false;
write(b[i]:6,'|');
end;
writeln;
for i:=1 to 10 do
begin
if b[i]=true then
write(a[i]:6,'|');
end;
readln;
end.