Паскаль! Дан целочисленный массив. Отсортировать массив по убыванию, начиная с максимального элемента

Question

Информатика

Эдик

11 октября, 12:27

Паскаль! Дан целочисленный массив. Отсортировать массив по убыванию, начиная с максимального элемента

+1

Ответы (1)

Знаете ответ на вопрос?

Коляха · Answer 1

Program array;

const A=10;

var mas:array [1 ... A]of integer;

n, i, j, k, x:integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to A do

writeln (i) ;

n:=1;

writeln ('Отсортированный массив:') ;

while i>n do

for i:=A downto n do

writeln (i) ;

end.