{* Задача154 *}

REM basic

' Нормировать вектор A = {A1,..., An} и найти его длину. формула Вектор A^0 = { A1/модуль вектора А, ... , An/ модуль вектора А}


INPUT "Введите n: ", n
Dim A(1 To n)
Dim A0(1 To n)

MODA = 0
For I = 1 To n

PRINT "Введите элемент"; I; "- ";
INPUT "", A(I)
MODA = MODA + A(I) ^ 2
Next
MODA = SQR(MODA)
PRINT "Длина вектора: "; MODA
PRINT "Нормированный вектор (";
For I = 1 To n
A0(I) = A(I) / MODA
PRINT A0(I);
Next
PRINT ")"