Язык qbasic ! решите , используя цикл while-wend 1. написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. 2. написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
'Первая задача
CLS
SCREEN 12
INPUT "N"; N
DIM A(N)
FOR I = 1 TO N
INPUT A(I)
NEXT
SUM = 0
FOR I = 1 TO N
SUM = SUM + A(I)
NEXT
SREDNEE = SUM / N
PRINT SUM
PRINT SREDNEE
'Вторая задача
CLS
SCREEN 12
INPUT "N"; N
DIM A(N)
FOR I = 1 TO N
INPUT A(I)
NEXT
MAX = 0
FOR I = 1 TO N
IF A(I) > MAX THEN MAX = A(I)
NEXT
PRINT MAX