ЯЗЫК QBASIC !!! Решите задачи, используя цикл while-wend 1. Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).

'Первая задача

CLSSCREEN 12INPUT "N"; NDIM A(N)FOR I = 1 TO N    INPUT A(I)NEXTSUM = 0FOR I = 1 TO N    SUM = SUM + A(I)NEXTSREDNEE = SUM / NPRINT SUMPRINT SREDNEE

'Вторая задача

CLSSCREEN 12INPUT "N"; NDIM A(N)FOR I = 1 TO N    INPUT A(I)NEXTMAX = 0FOR I = 1 TO N    IF A(I) > MAX THEN MAX = A(I)NEXTPRINT MAX