Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К

@Обернись · Регистрация: 28.12.2013

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

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.

@ktotonokto · 30.12.2013, 04:30

Pascal

  var A:array[1..100] of real;
      N,i,min,max,rav:integer;
      K:real;
begin
  write('N: ');
  readln(N);
  write('K: ');
  readln(K);
  randomize;
  min:=0;
  max:=0;
  rav:=0;
  for i:=1 to N do
    A[i]:=random(201)-100;
  for i:=1 to N do begin
    if A[i]=K then inc(rav);
    if A[i]<K then inc(min);
    if A[i]>K then inc(max);
  end;
  writeln('<K: ',min);
  writeln('=K: ',rav);
  writeln('>K: ',max);
  readln
end.

@markiza-inc · 30.12.2013, 09:25

Сообщение от ktotonokto

A[i]:=random(201)-100;

По условию массив должен быть вещественный, поэтому строку 14 лучше сделать так:

Pascal

1	A[i]:=random*201-100;

@Обернись · 16.03.2014, 13:48 **[ТС]**

Почему так?

@ktotonokto · 18.03.2014, 22:09

Сообщение от Обернись

Почему так?

Потому что в массиве не появляются числа, которые равны числу k.
Уберите рандом и попробуйте ввести числа самостоятельно.

@Обернись 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 59
		1
	Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К 29.12.2013, 17:42. Показов 9956. Ответов 4 Метки нет (Все метки) Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К. 0

@Обернись 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 59
	16.03.2014, 13:48 [ТС]	4
	Почему так? Миниатюры 0

@ktotonokto 3 / 3 / 1 Регистрация: 22.10.2013 Сообщений: 16
	18.03.2014, 22:09	5
	Сообщение от Обернись Почему так? Потому что в массиве не появляются числа, которые равны числу k. Уберите рандом и попробуйте ввести числа самостоятельно. 1

Опции темы