Заполнить массив из 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.
Не нашли ответ?
Похожие вопросы