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