Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100
5-9 класс
|
VAR i,s:integer;
Begin
for i:= 1 to 100 do
s:= s+ i;
writeln(s/100);
End.
Другие вопросы из категории
В этом каталоге создали подкаталог и переместили в него файл Список_10_класса.txt,
Читайте также
на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с: