помогите пожалуйста даю 74 балла!!!!!
составить программный код к следующей задаче:
Дан линейный массив из 40 элементов. Найдите в нём количество элементов, больших или равных заданному числу n, где n - вводится с клавиатуры. Элементы массива заполняются случайным образом.
составить программный код к следующей задаче:
Дан линейный массив из 40 элементов. Найдите в нём количество элементов, больших или равных заданному числу n, где n - вводится с клавиатуры. Элементы массива заполняются случайным образом.
More Questions From This User See All
Answers & Comments
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 т.к. в условии о нем не было сказано ничего.