Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>. -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86

Решение задачи: «Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел»

textual
Листинг программы
var
  a: array[1..10] of integer;
  i,sum,count: integer;
  average: real;
begin
  writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите<Enter>');
  write('->');
    for i:=1 to 10 do read(a[i]);
 
  sum:=0;
  count:=0;
    for i:=1 to 10 do
    begin
      sum:=sum+a[i];
        if a[i]<>0 then count:=count+1;
    end;
 
  writeln('Сумма элементов массива = ',sum);
  writeln('Количество ненулевых элементов = ',count);
  writeln('Среднее арифметическое ненулевых элементов = ',sum,'/',count,' = ',(sum/count):0:2);
  readln;
end.

Объяснение кода листинга программы

  1. Создается переменная a типа array[1..10] of integer, которая будет хранить массив целых чисел.
  2. Создаются три переменные i, sum и count типа integer, которые будут использоваться для подсчета суммы элементов массива и количества ненулевых элементов.
  3. Создается переменная average типа real, которая будет использоваться для хранения среднего арифметического ненулевых элементов.
  4. Выводится сообщение с просьбой ввести элементы массива в одной строке и нажать Enter.
  5. Выводится символ ->.
  6. С помощью цикла for происходит чтение элементов массива с индексами от 1 до 10.
  7. В блоке внутри цикла for происходит суммирование элементов массива в переменной sum и подсчет количества ненулевых элементов в переменной count.
  8. Выводится сообщение с суммой элементов массива, количеством ненулевых элементов и средним арифметическим ненулевых элементов.
  9. Выводится символ readln, который вызывает конец ввода данных.

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы