Опубликовано 5 лет назад по предмету Информатика от dafnochka

1. Вводиться последовательность ненулевых чисел, 0-конец последовательности. Определить среднее значение элементов последовательности

Ответ

Ответ дан AndreyGrynyuk

Program zadacha;
uses crt;
var a:array[1..10]of integer;
i,k,sum:integer;
begin
i:=0; k:=0;
repeat
inc(i);
readln (a[i]) ;

inc(k) ;
until a[i]=0;
sum:=0;
for i:=1 to k do
sum:=sum +a[i];

writeln('sr_znach ',sum/k);
end.

Помог отметь как лучший ответ
Ответ

Ответ дан Alphaeus

Проверено на Паскаль АВС

Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
    begin
      write("Ввод:") ;
      readln (r);
      sum:=sum+r;
      k:=k+1;
    end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

Другие вопросы

Математика - 3 недели назад

Математика - 3 недели назад

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт

Что ты хочешь узнать?

Задай вопрос