Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел. ниже рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 сумма элементов массива: 184 кол-во ненулевых элементов: 7 среднее арифметическое ненулевых элементов: 23.86
corvet42
3
07.04.2019 09:51
23
Другие вопросы по теме Информатика
ezaovabiana
01.10.2019 16:50
jdh9372888381
06.06.2019 04:50
слизеринсязмейка
23.06.2019 07:40
Анюта4111111
22.11.2020 17:17
Олисочка
22.11.2020 17:17
Ferklo
22.11.2020 17:18
darya4ern1
22.11.2020 17:27
Bироника
22.11.2020 17:27
нушин
22.11.2020 17:27
Популярные вопросы
- По своим наблюдениям расскажите, что происходит осенью с травянистыми растениями...
3 - Много ли осенью цветущих трав? Какие из них вы можете назвать?...
2 - Что можно делать в классе сообща, небольшой дружной группой? Как распределить...
2 - Какие изменения происходят осенью в жизни лиственных деревьев и кустарников...
1 - Изменился ли внешний вид сосны, ели?...
3 - В книге Великан на поляне почитаем сказку Разговор в лесу . Кому из вас приходилось...
3 - Почему зимой даже после сильных снегопадов ветви хвойных деревьев не ломаются?...
3 - Назови по порядку все работы со льном....
1 - Какие растения тебе хотелось бы вырастить в цветнике возле своего дома?...
3 - Какие растения часто встречаются в осенних цветниках?...
2
var mas:array[1..10] of integer;
i,kolvo:integer;
b:real;
begin
writeln('Введите 10 целых чисел: ');
for i:=1 to 10 do
begin
read(mas[i]);
kolvo:= kolvo+1;
if (mas[i]=0) then kolvo:= kolvo-1;
end;
for i:=1 to 10 do
begin
b:=mas[i] + b;
end;
b:= b/kolvo;
writeln('Количество ненулевых чисел= ', kolvo);
writeln('Среднее арифметическое ненулевых чисел= ', b);
end.