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

Ответ:

Объяснение:PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

writeln('Сколько чисел в последовательности');

readln(N);

writeln('Число K');

readln(K);

for i:=1 to n do

begin

writeln('Введите число последовательности');

readln(chislo);

if chislo<K then

a:=a+1

else

if chislo>K then

b:=b+1

else

c:=c+1

end;

writeln('Больших K: ', b, ' Меньших K', a , ' Равных ', c);

0