1. Информатика
  2. Дан массив размера n.найти

Дан массив размера n.найти среднее арифметическое всех элементов. 30

katpetrompet4345 katpetrompet4345    1   03.10.2019 10:50    0

Ответы
LAKI2280041 LAKI2280041  09.10.2020 13:56

var sum,n,i,k:integer;

a:array[1..100000] of integer;

begin

sum:=0;

k:=0;

readln(n);

for i:=1 to n do begin readln(a[i]); sum:=sum+a[i]; k:=k+1; end;

writeln(sum/k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Миша3456 Миша3456  14.04.2020 13:26
Запиши десятичное число 883 в системе счисления с основанием 7...
дошикестдошик дошикестдошик  14.04.2020 13:26
Статья, набранная на компьютере, содержит 8 страниц, на каждой странице 16 строк, в каждой строке 64 символа. Информационный объём статьи составляет 8 Кбайт. Определите, сколько...
aselkulmagambet aselkulmagambet  14.04.2020 13:26
Информ. Підготувати план дослідницького пректу з поданих тем(на вибір!): «Рослини», «Тварини», «Техніка»....
Паралиллепипед Паралиллепипед  14.04.2020 13:26
с информатикой очень с объяснением...
game108551 game108551  28.05.2019 11:20
Какие бывают носители информаций кроме журналов и газет...
Tara8808 Tara8808  28.05.2019 11:20
Что вы понимаете под компьютерной моделью...
НАТАШАПРОСТОКВАША НАТАШАПРОСТОКВАША  28.05.2019 11:20
Даны строки s , s1, s2. заменить в строке s все вхождения строки s1 на строку s2 ....
пппп103 пппп103  28.05.2019 11:10
Решить 1.ваш друг сообщил: «я живу на втором этаже в третьем подъезде 2-этажного дома. в доме 4 подъезда. на каждом этаже 4 квартиры». какое количество информации вы получили?...
Ḱặрặṃềӆьҟӑ Ḱặрặṃềӆьҟӑ  28.05.2019 11:10
Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение...
thefirststudent thefirststudent  28.05.2019 11:10
Pascal ! 1. составьте программу, вычисляющую, сколько букв надо исправить в слове х, чтобы получилось слово y (слова x и y одинаковой длины). 2. составьте программу, определения...

Популярные вопросы