Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for
5-9 класс
|
Var n,sum,pr:real; i:integer;
Begin
Write('Введите 5чисел');
for i:=1 to 5 do begin
readln(n);
sum:=sum+n;
end;
pr:=sum/5;
Writeln('Среднее арифметическое чисел - ',pr);
end.
обязательно наличие цикла for?
если он пишет что нужно с этим оператором, то обязательно
Другие вопросы из категории
спустился в каталог ФАРАОН. Каков полный путь к каталогу, в котором оказался пользователь?
А)Изображение строится из пикселей
В)Изменение размера происходит без потери качества
С)Каждая точка имеет свой цвет, яркость
D)Хранится цвет и оттенок каждой точки изображения
Битовая глубина цвета это:
A)Количество цветов в палитре
B)Общее количество цветов в изображении
C)Объем всего изображения
D)Количество бит для хранения информации о цвете 1 точки.
Битовая глубина измеряется
A)В байтах
B)В битах
C)В Кбитах
D)В Мбайтах.
Читайте также
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с:
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел