Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2014, 15:36   #1
FYNZIK
Пользователь
 
Регистрация: 10.02.2014
Сообщений: 47
По умолчанию Вычислить среднее арифметическое 10 заданных чисел.

Вычислить среднее арифметическое 10 заданных чисел.
FYNZIK вне форума Ответить с цитированием
Старый 18.02.2014, 16:21   #2
Malriser
xor esp, esp
Форумчанин
 
Регистрация: 11.02.2014
Сообщений: 135
По умолчанию

Оу, я смотрю вы в паскале вообще ноль.

Поэтому постарался максимально точно комментировать код:

Код:
program Project2;

uses Crt; // подключаем модуль Crt, чтобы было консольное окно

var
  n, i:integer;  // объявляем переменные типа integer
  a:real;       // объявляем переменную типа real
begin
  a := 0;     // инициализируем переменную a
  for i := 1 to 10 do  // цикл от 1 до 10
    begin
      readln(n); // считываем с клавиатуры введенное число
      a := a + n;  // суммируем предыдущую сумму с введенным числом
    end;  // результатом цикла будет сумма всех 10-ти введенных чисел
  a := a / 10; // делим эту сумму на десять
  writeln(a:4:4); // выводим среднее арифметическое чисел, 4:4 служит для обрезания дроби, иначе будет +E10000000000 и т.д
  readln;        //  ждем нажатия клавиши, чтобы программа не завершилась сразу после вывода результатов
end.

Последний раз редактировалось Malriser; 18.02.2014 в 16:24.
Malriser вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно определить, какое из данных 3 чисел среднее по значению. Среднее арифметическое считать НЕ надо vgfcb Помощь студентам 3 03.12.2013 20:24
С++ Найти среднее арифметическое положительных и среднее арифметическое отрицательных чисел, минимальное по модулю число. Юрик 530 Помощь студентам 4 03.12.2011 16:26
Вводится 10 чисел. Найти среднее арифметическое положительных чисел и произведение отрицательных. Руся93 Помощь студентам 14 02.10.2011 13:12
Вычислить среднее арифметическое четырех вводимых чисел. kostik2665 Общие вопросы C/C++ 16 06.02.2011 04:48
Вычислить среднее арифметическое qwerty777 Паскаль, Turbo Pascal, PascalABC.NET 3 19.05.2010 17:48