Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести его на экран. Располочить числа в порядке убывания значений.

Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести его на экран. Располочить числа в порядке убывания значений.
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) const   N = 10; var   a: array [1..N] of integer;   i, j, b: integer; begin   for i := 1 to N do     a[i] := Random(81) - 40;   writeln('Элементы массива a: ');   for i := 1 to N do     write(a[i], ' ');   writeln;     //сортировка не очень быстрая, но и массив маленький   for j := 1 to n do     for i := 1 to n - 1 do       if a[i] < a[i + 1] then       begin         b := a[i];         a[i] := a[i + 1];         a[i + 1] := b;       end;   writeln;   writeln('После сортировки : ');   for i := 1 to N do     write(a[i], ' ');   writeln;   end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы