Задачи на массивы(в паскале):1.Найти количество нулей в одномерном массиве. 2. найти сумму элементов кратных 5. 3.найти сумму первых 5 элементов. 4. верно ли что в массиве есть два нуля. 5. найти сумму элементов из промежутка о...

{Допустим ,что масив будет вводитса с клавиатуры число символов 10 тип-integer} program mas; var m:array [1..10] of integer; i,o,kp,pp,oo,a,b,s:integer;  begin writeln ('Vvedit masiv'); for i:=1 to 10 do begin readln (m[i]); end; o:=0;  for i:=1 to 10 do begin if m[i]=0 then o:=o+1; end; kp:=0  for i:=1 to 10 do begin if m[i] div 5=5 then kp:=kp+1; end; pp:=0; for i:=1 to 5 do begin pp:=pp+m[i]; end; oo:=0;  for i:=1 to 10 do begin  if m[i]=0 then oo:=oo+1; end; writeln ('Vvedit A i B'); readln (a,b); s:=0;  for i:=a to b do begin s:=s+m[i]; end; writeln ('Kolichestvo 0 - ',o); writeln ('suma kratna 5- ',kp); writeln ('suma pervix 5- ',pp); if oo=2 then writeln ('Virno v masivi dva nuli') else writeln ('V masive ne 2 nuli'); writeln ('suma ot A do B= ',s); end.                 {P.S. я не проверял в Паскале если будут з нею проблемы то обращяйся} {P.P.S. обрати внимание на разницу о и 0}