Дана последовательность из 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

a: =a+1

else

if chislo> k then

b: =b+1

else

c: =c+1

end;

writeln('больших k: ', b, ' меньших k', a , ' равных ', c);

0