Нужно решение) кто способен?
Вопрос 1.
На одномернный массив, вывести его в порядочный вид по убыванию!

1

Ответы и объяснения

Лучший Ответ!
2013-10-09T14:30:18+04:00
Const n=10;
var a:array[1..n] of integer; i,j,k:integer;
begin
 randomize;
 for i:=1 to n do
   begin
    a[i]:=random(20)+1;
    write(a[i]:3);
   end;
 writeln;
 for i:=1 to n-1 do
   for j:=i+1 to n do
     if a[i]<a[j] then
       begin
        k:=a[i];
        a[i]:=a[j];
        a[j]:=k;
       end;
 for i:=1 to n do write(a[i]:3);
end.