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

Question

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

Answer 1

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;<br>writeln('Количество элементов массива < 16 = ',k);
end.

Пример:
Массив A:
17 28 18 19 12 9 24 6 18 12
Количество элементов массива < 16 = 4

Answer 2

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<br>     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