Дан одномерный массив 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.