Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее
10-11 класс
|
арифметическое чисел из последовательности
var temp, sum, n:integer;
begin
sum:=0;
n:=0;
read(temp);
while(temp>0) do
begin
inc(sum,temp);
inc(n);
read(temp);
end;
writeln;
writeln(sum/n)
end.
Другие вопросы из категории
Дан двумерный массив целых чисел. В каждом столбце найти количество элементов кратных a и b.
эксперты высказали свои предположения об итогах:
1)Первое место займет китай,а украина будет третьей.
2)украина будет последней,а германия предпоследней.
3)германия точно будет четвертой,а первое место китай.
4)россия будет первой,а италия второй.
5)Нет,Италия будет пятой,а победит германия.
По окончании соревнований выяснилось,что каждый эксперт был прав только в одном утверждении.Какие места в соревновании заняли участники?
решите,составив логическую модель.
вывести на экран коды таблицы от 0 до 250 и их символы. выводить парами.
составить программу нахождения числ равных 0 в таблице состоящей из 15 целых чисел на pascal (маасив)
Читайте также
чисел из последовательности
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
Вводится последовательность целых чисел, заканчивающаяся нулем. Преобразовывать последовательность следующим образом:
1) заменить отрицательные числа в последовательности на их модули и вывести получившуюся последовательность;
2) в полученной последовательности заменить четные числа на максимальное число последовательности, вывести результат;
3) в полученной последовательности вычесть из каждого члена последовательности 2, вывести результат;
4) в полученной последовательности заменить отрицательные на 0, вывести результат.
Пример.
Последовательность: 1 2 3 0
1) 1 2 3
2) 1 3 3
3) –1 1 1
4) 0 1 1
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
сумму членов последовательности, кратных 11. Составить блок-схему алгоритма, написать программу.