Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива
АмелияРайс
1
24.04.2019 08:20
14
Другие вопросы по теме Информатика
dbdbbdns
29.09.2019 19:10
Armen200012
29.09.2019 19:10
nastycherry1
29.09.2019 19:10
ilyamilovanov1
29.09.2019 19:01
vikapinigina
29.09.2019 19:01
graulity
29.09.2019 19:00
Lapsy
29.09.2019 19:00
Лерой04
29.09.2019 19:00
Likusy15
29.09.2019 19:00
Популярные вопросы
- Означает ли дискретное строение генов столь же дискретное строение...
1 - Как наследуются половые хромосомы и признаки, сцепленные с полом?...
3 - Какие изменения в наследование сцепленных признаков вносит кроссинговер?...
2 - В чём выражается взаимодействие аллельных генов?...
1 - Чернокожий человек имеет генотип ААВВ, мулат - АаВв, белый - аавв....
3 - Закономерность поражения Японии и Германии во Второй Мировой Войне...
1 - Можно ли сказать, что все гены, отвечающие за признаки пола, расположены...
3 - Почему потомки одних и тех же родителей различаются? Какие механизмы...
1 - Почему многие признаки наследуются на первый взгляд не в соответствии...
3 - Что разнообразнее: генотипы или фенотипы родственников?...
3
var
i: integer;
a: array [1..5] of integer;
s: real;
begin
writeln('Введите 5 элементов массива через пробел:');
s:=0;
for i:=1 to 5 do begin read(a[i]); s:=s+a[i]; end;
s:=s/5;
write('Среднее арифметическое: ',s:0:15);
end.