Предмет: Информатика,
автор: ve6ino
ЯЗЫК QBASIC !!! Решите задачи, используя цикл while-wend 1. Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
Ответы
Автор ответа:
0
'Первая задача
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
Интересные вопросы
Предмет: Қазақ тiлi,
автор: alieksan77
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Алгебра,
автор: mariaa020405
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: dauuren