Найти среднее арифметическое тех чисел значение которых принадлежит интервалу

@katya37 · Регистрация: 24.12.2014

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

дано N действительных чисел .Найти среднее арифметическое тех чисел значение которых принадлежит [a,b]
составить блок схему,решить с массивами и без.

@Joy · 25.12.2014, 05:53

без массивов

Pascal

var
  a,b,c,s:real;
  n,i,j:integer;
begin
  write('a,b,n=');readln(a,b,n);
  s:=0.0;i:=0;
  write('Введите ',n,' чисел:');
  for j:=1 to n do begin
    read(c);
    if (c>=a) and (c<=b) then begin s:=s+c;i:=i+1;end;
  end;
  if i>0 then writeln('<S>=',s/i:0:2) else 
    writeln('Ни одно число не попало в интервал');
end.

с массивом

Pascal

const l=100;
var
  c:array[1..l] of real;
  a,b,s:real;
  n,i,j:integer;
begin
  write('a,b,n=');readln(a,b,n);
  s:=0.0;i:=0;
  write('Введите ',n,' чисел:');
  for j:=1 to n do begin
    read(c[j]);
    if (c[j]>=a) and (c[j]<=b) then begin s:=s+c[j];i:=i+1;end;
  end;
  if i>0 then writeln('<S>=',s/i:0:2) else 
    writeln('Ни одно число не попало в интервал');
end.

@katya37 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 2
		1
	Найти среднее арифметическое тех чисел значение которых принадлежит интервалу 24.12.2014, 22:27. Показов 1049. Ответов 1 Метки нет (Все метки) дано N действительных чисел .Найти среднее арифметическое тех чисел значение которых принадлежит [a,b] составить блок схему,решить с массивами и без. 0

	25.12.2014, 05:53

Найти среднее арифметическое тех чисел значение которых принадлежит интервалу

Решение