Составить массив из 10 целых чисел и подсчитать количество элементов массива, значения которых не превышают 3.

Const vt_max=10;

var

i:byte;

sum:integer;

vt:array[1 ... vt_max]of integer;

begin

sum:=0;

writeln ('Начальный массив случайных чисел') ;

for i:=1 to vt_max do begin

vt[i]:=random (0,12) ;

write (vt[i]:6) ;

if (vt[i]<=3) then

sum:=sum+vt[i];

end;

writeln ('') ;

writeln ('Сумма элементов не больше 3 равна ', sum) ;

end.