Составьте программу вычисление тех значений элементов массива которые меньше 16

Const n=10;

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

i, k:integer;

begin

Randomize;

writeln ('Массив A:');

for i:=1 to n do

begin

a[i]:=random (31);

write (a[i]:4);

end;

writeln;

k:=0;

for i:=1 to n do

if a[i]<16 then k:=k+1;

writeln ('Количество элементов массива < 16 = ', k);

end.

Пример:

Массив A:

17 28 18 19 12 9 24 6 18 12

Количество элементов массива < 16 = 4

Const m=200;

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

i, n: integer;

begin

write ('количество элементов массива: ');

readln (n);

randomize;

write ('массив: ');

for i:=1 to n do

begin

a[i]:=random (40);

write (a[i],' ');

end;

writeln;

write ('элементы, меньшие 16: ');

for i:=1 to n do if a[i]<16 then

write (a[i],' ');

end.

количество элементов массива: 15

массив: 6 22 28 39 24 3 19 15 35 22 2 2 22 1 32

элементы, меньшие 16: 6 3 15 2 2 1