Написать программу, которая вычисляет среднее арифметическое ненулевых частей введенного с
Написать программку, которая вычисляет среднее арифметическое ненулевых частей введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Введите элементы массива (10 целых чисел) в одной строке и нажмите .
На паскале или на lazarus.
-gt; 23 0 45 -5 12 0 -2 30 0 64
Сумма частей массива: 184
кол-во ненулевых частей: 7
Среднее арифметическое ненулевых частей: 23.86
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.