Landanaya
7 год назад
Дан массив а[-1;0;2;4;-2].Отсортировать по возрастанию(на ПАСКАЛЕ)в виде ПРОГРАММЫ
ОТВЕТЫ
Zhyuvivpa
Jul 12, 2019
uses crt;
var
i,j,max:byte;
a: array [1..100] of integer;
buf:integer;
BEGIN
repeat
write( input number of elements );
readln(max);
until max in [1..100];
writeln(input your demention);
for i:=1 to max do
begin
write(input a[, i, ] = );
readln(a[i]);
end;
buf:=0;
write(the first sort: );
for i:=max downto 1 do
for j:=2 to i do
if a[j]lt;a[j-1] then
begin
buf:=a[j];
a[j]:=a[j-1];
a[j-1]:=buf;
end;
for i:=1 to max do
write(a[i]);
writeln;
write(the second sort : );
for i:=max downto 1 do
write(a[i], );
END.
С форума программистов , сортировка повсюду
С форума программистов , сортировка повсюду
80
Смежные вопросы:
