Question

Дан линейный массив.Найти количество элементов больших числа х. Заполнить массив через случайные числа.
Паскаль.

Answer 1

const n=5;

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

i,x,k: integer;

begin

randomize;

write('x=');

readln(x);

k:=0;

write('massiv: ');

for i:=1 to n do begin

a[i]:=random(201)-100;

write(a[i],' ');

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

end;

writeln;

write('k=',k);

end.