Дан одномерный массив m состоящий из 12 целых чисел. Организовать

ввод массива случайным образом и найти:

1) количество нулевых элементов;

2) сумму элементов меньших 1

Const n = 12;

var m : array [1 ... n] of integer; i, kol, sum : integer;

begin

randomize; for i: = 1 to n do m[i]: = random (100) - 50; sum: = 0; kol: = 0; for i: = 1 to n do begin if m[i] = 0 then inc (kol) ; if m[i] < 1 then sum: = sum + m[i]; end; writeln ('Количество нулевых элементов: ', kol) ; writeln ('Сумма элементов, меньших 1: ', sum) ;

end.