Определить и программно заполнить одномерный массив , состоящий из 10 элементов ....

Question

Определить и программно заполнить одномерный массив , состоящий из 10 элементов . вычислить количество элементов массива , принадлежащих промежутку от a до b , которые затрагиваются у пользователя, результат вывести на экран.

Answer 1

Const n = 10;
var a, b, i, k : integer;
    mas : array[1..n] of integer;
Begin
    read(a, b);

    randomize();
    k := 0;
    for i := 1 to n do begin
        mas[i] := random(50);
        if (mas[i] >= a) and (mas[i] <= b) then<br>            k := k + 1;
    end;

    writeln(k);
End.

Comments

Если ответ помог, то, плиз, выбери лучшим. А то нужно для рейтинга;)
Заранее спасибо.