ЯЗЫК QBASIC !!! Решите задачи, используя цикл while-wend 1. Написать программу,...

Question

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

Answer 1

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

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