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

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

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

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

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.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ