перевести с паскаля на с++!!

const
n = 50;

type
a = array [1..n] of integer;

var
mas, c: a;
i, j, m, x: integer;

begin
writeln('введите число элементов массива:');
readln(m);
writeln('введите элементы массива mas:');
for i := 1 to m do
readln(mas[i]);
writeln('полученный массив');
for i := 1 to m do
write(mas[i]:4);
writeln;
for i := 1 to m do
begin
c[i] := mas[i];
while c[i] >= 10 do
c[i] := c[i] div 10;
end;
for i := 2 to m do
for j := m downto i do
if c[j - 1] > c[j] then
begin
x := c[j - 1];
c[j - 1] := c[j];
c[j] := x;
x := mas[j - 1];
mas[j - 1] := mas[j];
mas[j] := x;
end;
writeln('преобразованный массив:');
for i := 1 to m do
write(mas[i]:4);
writeln;
end.

Daniluha29    1   09.04.2020 12:10    2