Составить программу по нахождению среднего арифметического тех чисел, которые больше нуля.

@Zander · Регистрация: 08.02.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста составить эту программу.. "которая запрашивает и вводит количество действительных чисел, затем запрашивает и вводит сами эти числа, затем печатает на экране.

Среднее арифметическое тех из них, которые больше нуля."

@Puporev · 08.02.2010, 13:34

Pascal

uses crt;
var n,i,k:integer;
    a,sr:real;
begin
clrscr;
writeln('Сколько чисел ввести? n=');
readln(n);
writeln('Введите ',n,' чисел:');
k:=0;sr:=0;
for i:=1 to n do
 begin
  readln(a);
  if a>0 then
   begin
    sr:=sr+a;
    k:=k+1;
   end;
 end;
sr:=sr/k;
write('Среднее положительных=',sr:0:2);
readln
end.

@Zander 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 6
		1
	Составить программу по нахождению среднего арифметического тех чисел, которые больше нуля. 08.02.2010, 13:00. Показов 2411. Ответов 1 Метки нет (Все метки) Помогите пожалуйста составить эту программу.. "которая запрашивает и вводит количество действительных чисел, затем запрашивает и вводит сами эти числа, затем печатает на экране. Среднее арифметическое тех из них, которые больше нуля." 0

	08.02.2010, 13:34

Составить программу по нахождению среднего арифметического тех чисел, которые больше нуля.

Решение