Программа

'Ведомость успеваемости со ср.баллом
CONST QuantityStudents% = 10 'Количество студентов в группе
CONST QuantityMarks% = 5 'Количество оценок
DIM Group(QuantityStudents) AS STRING * 10 'Список группы
DIM GroupMarks(QuantityStudents, QuantityMarks) AS INTEGER 'Массив оценок
DIM i, j AS INTEGER 'Счетчики
DIM SumMark AS SINGLE 'Переменная для набора суммы оценок
PRINT 'Пропуск строки
FOR i = 1 TO QuantityStudents 'Верхняя граница цикла ввода ведомости
  INPUT "Введите фамилию ", Group(i) 'Ввод фамилии
  FOR j = 1 TO QuantityMarks 'Верхняя граница цикла ввода оценок
    INPUT "Введите оценку ", GroupMarks(i, j) 'Ввод оценки
  NEXT j 'Нижняя граница цикла ввода оценок
PRINT 'Пропуск строки
NEXT i 'Нижняя граница цикла ввода ведомости
'Вывод шапки таблицы:
PRINT "┌───────────┬───────────┬───────┐"
PRINT "│  Фамилия  │  Оценки   │Ср.балл│"
PRINT "├───────────┼───────────┼───────┤"
FOR i = 1 TO QuantityStudents 'Верхняя граница цикла вывода ведомости
  PRINT USING "│ \       \ │ "; Group(i); 'Вывод фамилии
  SumMark = 0 'Обнуление суммы оценок
  FOR j = 1 TO QuantityMarks 'Верхняя граница цикла вывода оценок и
                             'подсчета суммарного балла
    PRINT USING "# "; GroupMarks(i, j); 'Печать оценки
    SumMark = SumMark + GroupMarks(i, j) 'Набор суммы оценок
  NEXT j 'Нижняя граница цикла вывода оценок и подсчета суммарного балла
  PRINT USING "│  #.## │"; SumMark / QuantityMarks 'Вывод среднего балла
NEXT i 'Нижняя граница цикла вывода ведомости
PRINT "└───────────┴───────────┴───────┘" 'Вывод нижней части таблицы