Определить количество элементов массива, принадлежащих промежутку от a до b (значения а и b вводятся с клавиатуры; b>a) Паскаль

Question

Информатика

Ларуля

21 апреля, 02:38

Определить количество элементов массива, принадлежащих промежутку от a до b (значения а и b вводятся с клавиатуры; b>a) Паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Ленуша · Answer 1

Const n=20;

var x:array[1 ... n] of integer;

a, b, k, i:integer;

begin

Randomize;

writeln ('Массив:') ;

for i:=1 to n do begin

x[i]:=random (51) ;

write (x[i],' ') ;

end;

writeln;

write ('a, b (a
readln (a, b) ;

k:=0;

for i:=1 to n do

if (x[i]>=a) and (x[i]<=b) then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

Массив:

27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2

a, b (a
k = 8