Программа на паскале
дано 10 чисел
найти среднее арифметическое всех чисел, потом положительных, потом отрицательных.
for var i:=1 to 10 do
mayte
2
26.05.2020 12:29
4
Другие вопросы по теме Информатика
Bandurustka26
20.04.2021 18:52
olesy1945
22.06.2019 02:00
ДашаНифонтова
22.06.2019 02:00
vgjfgadg
22.06.2019 02:00
yaku06nastyaozq1r7
22.06.2019 02:00
Кристина20060805
22.06.2019 02:00
Rodofatos
23.04.2020 14:29
Vik1767
23.04.2020 14:28
Masha12fg
11.04.2020 13:28
Популярные вопросы
- Что с вк? люди сообщение и фотки удалились, сообщения приболели(...
1 - Напишите сочинение на тему « какими звуками встречает меня школа»...
3 - Написать сочинение 100 слов по образцу учебника 7 класса ваулина...
1 - Давление влажного воздуха в сосуде под поршнем при температуре...
3 - 36 в 3 степени умножить на 6 во 2 степени и разделить на 218 во...
3 - 8және 9 тапсырма көмектесіңіздерші...
1 - С! дроби сократить(если сокращается) 1. 4/5-1/2= 1/5+2/3= 5/9-1/2=...
1 - Превратите в смешанные дроби! ...
3 - Для данного определителя найти миноры и дополнения элементов аi2,...
3 - Сравните политику наполеона 1 и наполеона 3 ...
2
Var a:array[1..10] of integer;
i,k:integer;
s:real;
begin
k:=0;
writeln('Введите числа');
for i:=1 to 10 do
begin
readln(a[i]);
k:=k+a[i];
end;
s:=k/10;
writeln('Среднее арифметическое равняется ',s);
end.
Объяснение: