Дан одномерный массив заполните его симвлами

Question

Дан одномерный массив заполните его симвлами

Answer 1

Var
 a:array[1..255]of char;
 n,m,k,i,l:longint;
begin
 for i:=1 to 255 do a[i]:=chr(i);
 for i:=1 to 255 do write(a[i],' ');
readln;
end.