fpcdocs/mathex/ex33.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program Example33;

{ Program to demonstrate the norm function. }

uses math;

var v:array[1..10] of Float;
    I:1..10;

begin
  for I:=low(v) to high(v) do
    v[i]:=random;
  writeln(norm(v));
end.