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.
