ЯЗЫК 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
