Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В (задаётся с клавиатуры)

Question

Информатика

Ким

29 мая, 07:24

Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В (задаётся с клавиатуры)

+2

Ответы (2)

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

Леонтия · Answer 1

Var

i, n, b:integer;

a:array[1 ... 20]of integer;

begin

for i:=1 to 20 do

begin

a[i]:=random (20) ;

write (a[i],' ') ;

end;

writeln;

write ('Введите b: ') ;

readln (b) ;

for i:=1 to 20 do

if a[i]
writeln ('Ответ: ', n) ;

end.

Колюша · Answer 2

Program n1;

Uses Crt;

Var

c: array[1 ... 10] of integer;

i, b, k:integer; Begin

for i:=1 to 10 do begin

c[i]:=random (40) - 20;

write (c[i]:4) ;

end;

writeln () ;

writeln ('Enter B = ') ; Readln (b) ;

k:=0;

for i:=1 to 10 do if (c[i]
writeln ('Kol-vo iskomih chisel: ', k) ;

End.