Даны натуральное число n

@jkmuf · Регистрация: 21.11.2013

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

Даны натуральное число n, действит. числа Х1....Хn. В последовательности Х1....Хn все члены меньше двух , заменить нулями .Кроме того , получить сумму членов, принадлежащих отрезку [3,7], а так же число таких членов.

@APALoff · 22.11.2013, 10:58

Pascal

Summ:=0; k:=0;
For i:=1 to n do
Begin
  If x[i]<2 then x[i]:=0;
  If (x[i]>=3) and (x[i]<=7) then
  Begin
    Summ:=Summ+x[i];
    Inc(k);
  End;
End;
Writeln(Summ);
Writeln(k);

@jkmuf 0 / 0 / 1 Регистрация: 21.11.2013 Сообщений: 10
		1
	Даны натуральное число n 21.11.2013, 21:10. Показов 1023. Ответов 1 Метки нет (Все метки) Даны натуральное число n, действит. числа Х1....Хn. В последовательности Х1....Хn все члены меньше двух , заменить нулями .Кроме того , получить сумму членов, принадлежащих отрезку [3,7], а так же число таких членов. 0

	22.11.2013, 10:58

Даны натуральное число n

Решение