Задан массив B[1..30]. Отсортировать все элементы с n-го по k-ый по неубыванию. (программа Паскаль)
167
226
Ответы на вопрос:
const NN=30;
var
b:array[1..NN] of integer;
i,j,k,l,n:integer;
begin
randomize;
writeln('B:');
for i:=1 to NN do begin
b[i]:=random(101)-50;
write(b[i]:4);
end;
writeln;
write('n,k=');readln(n,k);
for i:=1 to NN-1 do
for j:=i+1 to NN do
if (i>=n) and (i<=k) and (j>=n) and (j<=k) and (b[i]>b[j]) then begin
l:=b[i];
b[i]:=b[j];
b[j]:=l;
end;
writeln('B_new:');
for i:=1 to NN do write(b[i]:4);
end.
var
b:array[1..NN] of integer;
i,j,k,l,n:integer;
begin
randomize;
writeln('B:');
for i:=1 to NN do begin
b[i]:=random(101)-50;
write(b[i]:4);
end;
writeln;
write('n,k=');readln(n,k);
for i:=1 to NN-1 do
for j:=i+1 to NN do
if (i>=n) and (i<=k) and (j>=n) and (j<=k) and (b[i]>b[j]) then begin
l:=b[i];
b[i]:=b[j];
b[j]:=l;
end;
writeln('B_new:');
for i:=1 to NN do write(b[i]:4);
end.
Популярно: Другие предметы
-
KristinaKinka12.08.2021 05:39
-
aliona12345678918.10.2020 22:41
-
Королина202222.06.2021 12:20
-
Аnимeшka25.03.2023 22:08
-
Slash21303.05.2021 09:13
-
витка923.12.2021 02:54
-
Denis890317.05.2023 02:57
-
ВикаБрагина200524.11.2022 02:40
-
VadimOMG30.06.2021 14:49
-
babikahenjudzao23.01.2022 12:27