На вывод работало с 866, а на ввод с 1251 (SetConsoleCP();). В массив пишет каракули. Функции setlocale(LC_CTYPE, "Russian"); setlocale(LC_ALL, "Russian"); тоже не Отлично работают с ОТОБРАЖЕНИЕМ текста в консоли, но с чтение из ее это ужас. В С++ всегда с этим проблема была, с обработкой вводимой кириллицы с консоли. Это те еще танцы с бубнами. Учитывая еще то, что многие функции писались исключительно под XP а про поддержку в версиях выше речи не было вообще. Есть выходы конечно, но у меня не получилось отобразить кириллицу, считать с консоли, и вывести обратно. Что-то одно всегда не работало.Либо выводило правильно, а записывало каракули, либо каракули выводит а записывает правильно. Если убрать все заморочки с кодировками, то вот код:
Исходник на С#, переделать на другой любой будет не сложно - тут 5 вложенных циклов, для прокрутки буквы от первой до последней и свитчи на каждую букву для записи в комбинацию. Напоминает счетчик обычный. В консоль не влезло (там 1200+ записей), по этому поводу не стал морочиться и записал потоком вместо консоли в блокнот. Результат работы программы прикреплен.
const g = 4; v = 7;
var a: array[1..g,1..v] of integer;
i,j,x:integer;
begin
x:=1;
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=x;
x:=x+1;
write(a[i,j]:3)
end;
writeln
end;
end.