Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d]

@Abuzek · Регистрация: 08.04.2015

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

Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d], предшествующих первой по порядку отрицательной компоненте.

@Hitoku · 28.04.2017, 01:33

Pascal

var x:array [1..100] of real;
    m,count,i:byte; c,d:real;
begin
  randomize;
  write('M = '); readln(m);
  for i:=1 to m do begin
    x[i]:=random*20-5; write(x[i]:0:3,' ');
  end;
  writeln; count:=0;
  write('c,d = '); readln(c,d);
  for i:=1 to m do
    if x[i]<0 then break
     else if (x[i]>=c) and (x[i]<=d) then
      inc(count);
  write(count);
end.

@Abuzek 0 / 0 / 0 Регистрация: 08.04.2015 Сообщений: 5
		1
	Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d] 27.04.2017, 23:46. Показов 1519. Ответов 1 Метки нет (Все метки) Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d], предшествующих первой по порядку отрицательной компоненте. 0

	28.04.2017, 01:33

Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d]

Решение