Напишите программу,согласно которой будет запрошено несколько натуральных чисел и сообщено их среднее арифметическое (количество запрашиваемых чисел тоже запрашивается) — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT " vvedite kol-vo chisel ", n
FOR i = 1 TO n
    INPUT "vvedite chislo ", a
    s = s + a
NEXT
PRINT "srednee arifmeticheskoe="; s / n

Тестирование выполнено в программе QB64 ( Скачать )