Вот решение но почему 1-4 классы. var mas:array of integer; i,n:integer; begin readln(n); setlength(mas,n); for i:=0 to n-1 do begin mas[i]:=random(71)-20; write(mas[i],' '); end; end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
1. Если надо преобразовать число без знака в число
begin var n:=ReadInteger; // исходное число n:=n.ToString.Inverse.ToInteger; // полученное число n.Println; // вывод результата end.
2. Если нужно только вывести результат
begin var n:=ReadInteger; // исходное число n.ToString.Inverse.ToInteger.Println end.
3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)
begin ReadlnString.Inverse.Println end.
4. Если заданное число может быть отрицательным
begin var n:=ReadInteger; // исходное число var s:=Sign(n); // знак числа n:=Abs(n); // модуль числа n:=n.ToString.Inverse.ToInteger*s; // полученное число n.Println; // вывод результата end.
var mas:array of integer;
i,n:integer;
begin
readln(n);
setlength(mas,n);
for i:=0 to n-1 do begin
mas[i]:=random(71)-20;
write(mas[i],' ');
end;
end.