Меню сайта

Задача №13
Дан массив из —n -элементов.Упорядочить массив по убыванию.
Program -mas_13-
uses crt-
Var a:array[1..1000] -of integer-
k,n,I,j:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(100)-50- write(a[i]:4)-
End-
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]&lt-a[j] then
begin
k:=a[i]-
a[i]:=a[j]-
a[j]:=k-
end-
Writeln-
For I :=1 to n do Write (a[i]:3)-
Readln-
End.
Категория: Массивы | Дата: 22.12.12

Меню раздела
Блок