Question

Паскаль.

Определить, сколько элементов массива меньше, чем число 6.

Answer 1

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

i,c,n: integer;

begin

randomize;

readln(n);

c:=0;

 

for i:=1 to 10 do begin

a[i]:=random(20)+1;

if (a[i]<6) then c:=c+1;

end;

writeln(c);

end.