Задать вопрос

Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100

+2
Ответы (1)
  1. 7 декабря, 03:22
    0
    program zz1;

    var r, i, k: integer; / / задаем переменные целого типа

    begin

    for i:=1 to 100 do / / организуем цикл, в котором переберем все числа от единицы до ста

    begin r: = r + i; k: = k + 1; end; / / добавляем число из диапазона к сумме и считаем количество чисел

    write (' среднее арифметическое всех целых чисел в промежутке от 1 до 100 = ', r / k); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100 ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры. Входные данные Три целых числа вводятся в одной строке через пробелы.
Ответы (1)
Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое
Ответы (1)
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными индексами. выведите на экран исходный массив и полученное среднее арифметическое. 2.
Ответы (1)
Дан массив из 15 чисел заполненный случайными числами из интервала [-20; 20]. определить, что больше среднее арифметическое элементов стоящих на четных местах или среднее арифметическое положительных элементов массива
Ответы (1)
Найти среднее арифметическое всех положительных целых чисел от a до b (b>=a) Если таких чисел нет то вывести сообщение "Таких чисел нет"Программа на Паскале (net или abc)
Ответы (1)