Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.