Лови тут и шифратор и дешифратор
Var
X : Array
[1..20, 1..20] Of integer;
M, N : Integer;//M - столбцы, N - строкиi, j : Integer;//i, j - параметры циклов
p: integer;
Procedure
vvod (var X: Array [1..20, 1..20] Of byte);
begin
For i := 1
To N Do
For j := 1
To M Do
Begin
Write
('X[', i, ',', j, '] = ');
ReadLn(X[i,j]);
End;
end;
Procedure
print (X: Array [1..20, 1..20] Of byte);
begin
for i :=1
to N do
begin
for j :=1 to M do write ( X [ i , j ]:4); writeln ;
end;
end;
Begin
WriteLn ('Ввод элементов.');
Write ('Число строк: ');
ReadLn (N);
Write ('Число столбцов: ');
ReadLn (M);
WriteLn ('Введите поочередно элементы матрицы:');
vvod(X);
print(x);
ReadLn;
End.