Консультация № 197657
26.01.2020, 12:16
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Создайте массив А[1..8] с помощью генератора случайных чисел с вещественными элементами от –10 до 10 и выведите его на экран. Отсортировать по убыванию и вывести полученный массив на экран. pascal

Обсуждение

давно
Профессор
401888
1232
26.01.2020, 15:31
общий
это ответ
Здравствуйте, JonMoxley!
[code lang=pascal]const n=8;
var a:array[1..n] of real;
i,j:integer;
x:real;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=-10+20*random;
write(a[i]:6:2);
end;
writeln;
for i:=1 to n do
for j:=i+1 to n-1 do
if a[i]<a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Сортировка массива по убыванию');
for i:=1 to n do
write(a[i]:6:2);
end.[/code]
Форма ответа