Const n = 10; var a: array[1..n] of integer; i, j, t: integer; flag:boolean;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(101)-50; Write(a[i]:4) end; Writeln; i:=1; repeat flag:=true; for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end; Inc(i); until (i>n-1) or flag; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
Холст – это чистое пространство, которое дается нам для совершения каких-либо действий в разнообразных программах. Например, в графических редакторах холст - это пространство, которое дается нам для рисования рисунка.
Сохранить проект по указанному адресу можно только через пункт меню "Save as copy. Choose a file format". Но тоггда отсутствует возможность редактирования проекта. Если сохранять файл используя пункт меню "Save as Paint 3D project" проект сохраняется по неизвестному адресу. Указать путь нет никакой возможности. Куда сохраняется проект?
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(101)-50;
Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
flag:=true;
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
-32 -7 2 2 50 -33 1 31 4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7 1 2 2 4 31 50
Холст – это чистое пространство, которое дается нам для совершения каких-либо действий в разнообразных программах. Например, в графических редакторах холст - это пространство, которое дается нам для рисования рисунка.
Сохранить проект по указанному адресу можно только через пункт меню "Save as copy. Choose a file format". Но тоггда отсутствует возможность редактирования проекта. Если сохранять файл используя пункт меню "Save as Paint 3D project" проект сохраняется по неизвестному адресу. Указать путь нет никакой возможности. Куда сохраняется проект?