Ответы на вопрос:
var
v: array[1..100] of integer;
i,j,n,b: integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln('============ ishodnii massiv ============='); writeln;
//заполним массив случайными числами
for i : = 1 to n do
begin
v[ i]: =random(100)-50;
write(v[ i]: 4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i: =1 to n-1 do
for j: =i+1 to n do
if v[ i]> v[ j] then
begin
b: =v[ i];
v[ i]: =v[ j];
v[ j]: =b;
end;
writeln;
write('=========== otsortirovannii massiv ======='); writeln; writeln;
write('ot min k max: '); writeln;
for i : = 1 to n do
write(v[ i]: 4); writeln; writeln;
write('ot max k min: '); writeln;
for i : = n downto 1 do
write(v[ i]: 4);
readln;
end.
Популярно: Информатика
-
Юся180922.03.2022 05:10
-
nataliyadydina02.12.2021 06:11
-
прог1301.01.2023 20:08
-
Adn200128.12.2021 02:26
-
mmmmm26906.07.2021 16:48
-
vodzinskiyaleksandr03.10.2020 19:23
-
кефирка562307.11.2021 13:02
-
lizaskiba1407200321.11.2020 07:12
-
ания707.04.2023 23:25
-
RitaTrott24.01.2021 20:19