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

Question

Информатика

Кирьяна

15 ноября, 22:59

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

+3

Ответы (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.