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

Организуйте массив, содержащий 20 различных символов. отсортируйте его по возрастанию.

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

Program z1;
var
a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
 begin
   a[i]:=i
 end;

for i:=1 to 20 do
begin
write (a[i]);
end;

end.

Это если просто нужно заполнить массив