Сумма элементов, равных нулю, в любом массиве будет равна нулю. Сколько нулей ни складывай - в результате будет ноль. И для этого не надо писать никаких программ - достаточно арифметики из начальной школы.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=MatrRandom(5,5,-9,9);
a.Println(3); Writeln(15*'-');
Writeln('Сумма нулей: ',a.ElementsByRow.Where(t->t=0).Sum)
end.
Может имелись в виду <span>счетно-перфорационные машины?
Если да, то такая машина была придумана в конце 19 века </span><span>Германом Холлеритом(Америка).
Эту машину можно сравнить с машиной Бэббиджа. Если в машине Бэббиджа перфокарты использовались для представления программы, то в этой - для хранения числовой информации. Эти машины делали сортировку, сортировку, вывод на печать числовых таблиц и перфорацию. Благодаря этой машине решались простые задачи статистической </span><span>обработки, бухгалтерского учета и так далее.</span>
Program z2; Var n,i:integer; Begin Write('N = '); readln(n); while n>0 do begin write(n,' '); n:=n-1; end;End.