Опубликовано 6 лет назад по предмету Информатика от KaktusiVerblud

Решите пожайлуста срочно в паскале 1.задан массив x[1..20], элементы которого выбираются случайным образом из отрезка [-30;80]. Отсортировать все элементы с 5-го по 15-й по возрастанию 2.задан массив B[1..10], элементы которого вводятся с клавиатуры. Отсортировать все элементы с m-го по k-ый по убыванию. Числа m и k целые, вводятся с клавиатуры. например при m=3 и k=8 сортируются элементы только 3-го по 8-ой

Ответ

Ответ дан pokemanbr

1program ss;var x:array[1..20] of integer; i,j,z:integer;begin randomize; for i:=1 to 20 do x[i]:=random(111)-30; for i:=6 to 15 do for j:=15 downto i do if(x[j-1]>x[j]) then begin z:=x[j-1]; x[j-1]:=x[j]; x[j]:=z; end; for i:=1 to 20 do write(x[i],' ');end.2program ss;var b:array[1..10] of integer; m,k,i,j,z:integer;begin readln(m,k); for i:=1 to 10 do read(b[i]); for i:=m+1 to k do for j:=k downto i do if(b[j-1]<b[j]) then begin z:=b[j-1]; b[j-1]:=b[j]; b[j]:=z; end; for i:=1 to 10 do write(b[i],' ');end.