Написать программу, которая вычисляет среднее арифметическое - вопрос №586755 от Кира4311 05.08.2022 13:30

Question

Информатика: Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел. ниже рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). введите элементы массива (10 целых чисел) в одной строке и нажмите . - 23 0 45 -5 12 0 -2 30 0 64 сумма элементов массива: 184 кол-во ненулевых элементов: 7 среднее арифметическое ненулевых элементов: 23.86

Кира4311 · Answer

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.