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

Question

71

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

bouka · Accepted Answer

64

bouka

15 марта 2023

'Первая задача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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: