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

Вопрос от пользователя: Онисим

Составить массив из 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]