<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumD(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
a:=a.OrderBy(x->x).OrderBy(x->SumD(x)).ToArray;
a.Println;
end.
<u>Пример</u>
n= 30
632 411 647 143 933 205 451 16 213 479 106 939 299 315 566 428 306 758 495 927 101 301 599 969 368 180 24 124 739 635
101 301 24 213 411 16 106 124 205 143 180 306 315 451 632 428 635 933 368 566 647 495 927 739 299 479 758 939 599 969
1) зайти в пункт меню файл
2) выбрать пункт "Сохранить"
3) выбрать по навигации папку, в которую нужно сохранить
4) дать имя файлу
5) нажать кнопку "Сохранить"
Все зависит от того, о каком языке идет речь.
Если язык допускает только типизированные массивы, то тип элементов массива может быть любым, как базовым, так и определенным пользователем, но все элементы массива должны быть одного типа.
Если в языке допускаются нетипизированные массивы, то любые элементы массива могут иметь любой, предопределенный в языке тип, либо ранее объявленный тип, либо быть бестиповыми. Другими словами, если в языке допускаются нетипизированные массивы, то тип каждого элемента может определяться, а также переопределяться в процессе выполнения программы.
Например, Паскаль - язык с жесткой типизацией. В нем тип массива определяет тип всех элементов этого массива. Сам тип может быть как предопределенным (числовым, логическим, булевым, строковым,...), так и определенным пользователем посредством конструкции Type.
Индекс массива - это порядковый номер элемента в массиве, поэтому он всегда целочисленный. В ряде языков можно указывать индексы вещественного и даже строкового типа, но в любом случае они будут приведены к целочисленным.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18