Сортировка по возрастанию: const n=20; var a:array[1..n] of integer; i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; for i:=1 to n-1 do 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 end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln end.
function minim(ar: array of real; n: integer): real; var i: integer; min: real; begin min := MaxReal; for i := 0 to n - 1 do //динамические массивы индексируются с 0 if min > ar[i] then min := ar[i]; minim := min; end;
begin randomize; write('NA:');readln(NA); //ввод размерностей write('NB:');readln(NB); write('NC:');readln(NC); var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов var b := ArrRandomReal(NB, 1, NB); var c := ArrRandomReal(NC, 1, NC); a.println(' '); writeln('Min:', minim(a, NA)); b.println(' '); writeln('Min:', minim(b, NB)); c.println(' '); writeln('Min:', minim(c, NC)); end.
const n=20;
var
a:array[1..n] of integer;
i,j,t:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
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 end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.
Пример:
Исходный массив:
18 2 16 17 -14 -15 -18 -18 9 -5 -4 -9 -7 12 24 16 11 15 -24 22
Отсортированный массив:
-24 -18 -18 -15 -14 -9 -7 -5 -4 2 9 11 12 15 16 16 17 18 22 24