давно
Старший Модератор
31795
6196
19.05.2016, 10:32
общий
это ответ
Здравствуйте, amelya.kuro!
Смотрите код:
[code lang=pascal h=200]const
n=15;
var
i,j:integer;
a:array[1..n]of real;
b:real;
begin
{создаем массив}
for i:=1 to n do
begin
a[i]:=100*random;
write(a[i]:16:10);
end;
writeln;
{сортировка массива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
{вывод массива}
writeln;
for i:=1 to n do
write(a[i]:16:10);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.