PRIMAT.ORG
© 2008-2012
ПРИКЛАДНАЯ
МАТЕМАТИКА
Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.
                Вход



    НОВОЕ В БИБЛИОТЕКЕ
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

    НОВЫЕ ФАЙЛЫ
● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор


    ЛУЧШИЕ ПУБЛИКАЦИИ
● Бухаете? Тогда я иду к в...
● Программирование под And...
● Считаем сумму ряда
● Программирование под And...
● Программирование под And...
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Матричный калькулятор (3...
● Небольшая забава для про...
● Пара интересных задач

    ЛУЧШИЕ МАТЕРИАЛЫ
● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Умножение матриц (Паскал...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Сортировка Хоара (быстра...
● Темы курсовых работ (укр...
● Теория графов плюс бонус...

    10 ЛУЧШИХ ФАЙЛОВ
● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Гмурман. Теория вероятно...
● Математические формулы
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

     
 
Карта программистов

Конструктор информеров



На сайте всего: 16
Посетителей: 16
Пользователей: 0
Создать сайт бесплатно
 БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ 

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ [ ДОБАВИТЬ ]

Количество оценок выше средней (Паскаль)


Program Ball;
Const
  M=25;
Var
  B:Array[1..M] OF Integer;
  S:Real; {сумма и средний балл}
  N,I,K:Integer; {K — счетчик}
Begin
  Writeln('Введите количество оценок');
  Read (N);
  Writeln('Введите оценки');
  For I:= 1 To N Do Read(B[I]);
  S:=0;
  For I:= 1 To N Do S := S+B[I];
  S := S/N; {средний балл }
  Writeln('Средний балл — ',S);
  K: = 0;
  For I:= 1 To N Do If B[I] >S Then K:=K+1;
  Writeln('Количество оценок выше средней = ',K);
End.

Просмотров [ 794 ]  ●  10.02.08  ●   Рейтинг  [ 0% ]


Комментариев: [ 0 ]

  Ваше Имя  



   





Украинская Баннерная Сеть