Помогите пожалуйста даю 74 балла!!!!! составить программный код к следующей задаче:Дан...

Question

Помогите пожалуйста даю 74 балла!!!!! составить программный код к следующей задаче:Дан линейный массив из 40 элементов. Найдите в нём количество элементов, больших или равных заданному числу n, где n - вводится с клавиатуры. Элементы массива заполняются случайным образом.​

Comments

паскаль

Answer 1

Program n_1;

var i, k, n:integer; a: array [1..40] of integer;

begin

   readln(n);

   randomize;

   for i:=1 to 40 do begin

       a[i]:=random(100);

       if a[i]>=n then k:=k+1;

   end;

   writeln(k);

end.

_____

Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.