Составить программу «Вычислить среднее арифметическое N целых чисел»
AmoskovaAlenka
1
24.05.2020 23:14
0
Другие вопросы по теме Информатика
dondokov03
24.01.2021 13:50
vishnya39
24.01.2021 13:50
eliseygrid53
24.01.2021 13:51
5rv
04.05.2020 20:24
Disengaliev
04.05.2020 20:24
volkovaw
20.04.2020 13:51
долин1
20.04.2020 13:51
Taksa64
20.04.2020 13:51
Популярные вопросы
- Розрахувати зміну ентропії реакції ΔS° p-ї H2S (г) + Cl2 (г) → 2HCl (г) + S...
3 - Яка із систематичних груп не використовується для класифікації тварин?...
1 - В одной и той же системе координат постройте графики функции: а) y=0,5xб) y=-4...
2 - Выписать из художественных произведений 5 предложений с деепричастными оборотами...
1 - 1. Желдің күшімен өндірілетін электр қуаты неге жұмсалады? 2. Ненің басқа энергия...
3 - План порівняльної характеристики в творі давня казка...
2 - Попри те що УЦР не втримала владу, її історичне значення важко переоцінити....
2 - Может ли один и тот же объект в разных агрегатных состояниях иметь разные размеры...
3 - Найдите тезисы и аргументы в приведенном фрагменте текста. Какой вид доказательства...
3 - Упрости выражение 19х-7х И найди его значение выражения при х=19...
3
Объяснение:
Надеюсь, что всё так)
var N,x,S,i:integer;
SR:real;
begin
writeln ('кол-во чисел в последовательности N=');
readln (N);
S:=0;
for i:=1 to N do
begin
read (x);
S:=S+x;
end;
Sr:=S/N;
Writeln('Sr=',Sr)
end.