Дан массив А (40). Упорядочить элементы массива по убыванию. погите написать программу желательно на паскаль Abc

Question

Информатика

Харита

27 апреля, 17:32

Дан массив А (40). Упорядочить элементы массива по убыванию. погите написать программу желательно на паскаль Abc

+4

Ответы (1)

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

Артемич · Answer 1

Program asd;

const A=40;

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.