Решить систему уравнений - QBasic (27580)

Формулировка задачи:

Помогите решить ksr, lsr- средние значения массивов, lmax - наибольшие значения массивов, kmin -наименьшее значение массива, |х| - абсолютная величина числа, оператор ABS.квадратный корень SQR

Решение задачи: «Решить систему уравнений»

Листинг программы

DIM i AS INTEGER
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM c(1 TO n)
DIM y(1 TO n)
 
FOR i = 1 TO n
   c(i) = 20 * RND - 10
   PRINT USING "###.####"; c(i);
NEXT i
PRINT
 
kw = 0
FOR i = 1 TO n
   kw = kw + c(i)
NEXT i
kw = kw / n
 
lw = 0
FOR i = 1 TO n
   lw = lw + c(i) ^ 2
NEXT i
lw = SQR(lw / n)
 
lmax = c(1)
kmin = c(1)
FOR i = 2 TO n
    IF lmax < c(i) THEN lmax = c(i)
    IF kmin > c(i) THEN kmin = c(i)
NEXT i
PRINT
PRINT USING " lmax = ##.####  kmin = ##.####"; lmax; kmin
 
FOR i = 1 TO n
   IF c(i) > 0 THEN
      y(i) = ABS(kw + lw)
   ELSEIF c(i) < 0 THEN
      y(i) = (kmin ^ 2 + lmax ^ 3) * c(i)
   ELSE
      y = SQR(kw * lw) / 2
   END IF
NEXT i
PRINT
FOR i = 1 TO n
   PRINT USING "######.####"; y(i);
NEXT i
END

Объяснение кода листинга программы

Объявлены две переменные типа INTEGER - i и n. Значение переменной n получается с помощью функции INPUT.
Создаются две массива типа REAL - c и y. Размер массива c устанавливается равным n, а массив y инициализируется нулевыми значениями.
В цикле FOR заполняются значения массива c случайными числами от -10 до 10 с шагом 20.
Выполняется цикл FOR для подсчета среднего значения элементов массива c.
Вычисляется квадратный корень среднего значения элементов массива c.
Находится максимальное и минимальное значение элементов массива c.
В цикле FOR заполняются значения массива y в зависимости от знака элементов массива c.
Выполняется цикл FOR для вывода значений массива y.