Система уравнений - QBasic (27683)

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

Помогите решить asr, bsr- средние значения массивов, amin, cmin - наименьшие значения массивов, bmax -наибольшее значение массива, |х| - абсолютная величина числа, оператор ABS.

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

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

                            CLS
INPUT "n="; n
DIM A(1 TO n), b(1 TO n), c(1 TO n), y(1 TO n)
FOR i = 1 TO n
A(i) = INT(RND * 100) - 50
b(i) = INT(RND * 100) - 50
c(i) = INT(RND * 100) - 50
NEXT i
PRINT "Massiv A Massiv B   Macciv C"
FOR i = 1 TO n
PRINT A(i), b(i), c(i)
NEXT i
minA = A(1)
maxB = b(1)
minC = c(1)
sumA = 0
sumB = 0
FOR i = 1 TO n
IF A(i) <= minA THEN minA = A(i)
IF b(i) >= maxB THEN maxB = b(i)
IF c(i) <= minC THEN minC = c(i)
sumA = sumA + A(i)
sumB = sumB + b(i)
NEXT i
PRINT "Min massiva A= "; minA
PRINT "Max massiva B= "; maxB
PRINT "Min massiva C= "; minC
PRINT "Summa A= "; sumA, "Summa B= "; sumB
SrA = sumA / n
SrB = sumB / n
PRINT "Srednee A= "; SrA, "Srednee B= "; SrB
FOR i = 1 TO n
IF c(i) > 0 THEN y(i) = minA - maxB
IF c(i) < 0 THEN y(i) = SrA ^ 3 + SrB
IF c(i) = 0 THEN y(i) = ABS(SrA * minC)
PRINT "y("; i; ")="; y(i)
NEXT i
END
                        