Определить сумму тех вещественных чисел, которые больше P

@Sp1nker · Регистрация: 24.01.2013

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

Даны натуральное число n и вещественные числа b1, b2,...,bn. Определить сумму тех вещественных чисел, которые больше P.

Kodzaev · 27.01.2013, 19:27

Pascal

Var
  b: Array[1..100] of Real;
  i,n: Integer;
  p,s: Real;
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
Write('Введите P: ');
Readln(p);
Writeln('Введите элементы массива:');
For i:=1 to n do
begin
  Readln(b[i]);
  If b[i]>p Then
  s:=s+b[i];
end;
Writeln('Сумма чисел больших P = ',s:2:2);
END.

@Sp1nker · 29.01.2013, 22:09 **[ТС]**

Может кто-нибудь сделать без массивов?

@Ce7eH_111 · 29.01.2013, 22:18

Скажи пожалуста зачем оно тебе ?

(Это очень легко)
Надеюсь ты не учишся на программера?

Добавлено через 2 минуты

Pascal

Uses crt;
Var
  i,n: Integer;
  p,s,b: Real;
Begin
readln(n);
for i:=1 to n do begin
read(b);
if b>p then inc(s,b);
end;
writeln(s:2:2);
End.

@Sp1nker 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 40
		1
	Определить сумму тех вещественных чисел, которые больше P 27.01.2013, 19:24. Показов 5159. Ответов 3 Метки нет (Все метки) Даны натуральное число n и вещественные числа b1, b2,...,bn. Определить сумму тех вещественных чисел, которые больше P. 0

@Sp1nker 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 40
	29.01.2013, 22:09 [ТС]	3
	Может кто-нибудь сделать без массивов? 0

	29.01.2013, 22:18

Опции темы