Задачи на массивы (в паскале): 1. Найти количество нулей в одномерном массиве. 2.…

{Допустим, что масив будет вводитса с клавиатуры число символов 10 тип-integer}program mas; var m: array [1… 10] of integer; i,o,kp,pp,oo,a,b,s: integer; beginwriteln ('Vvedit masiv'); for i: =1 to 10 do beginreadln (m[i]); end; o: =0; for i: =1 to 10 do beginif m[i]=0 then o: =o+1; end; kp: =0 for i: =1 to 10 do beginif m[i] div 5=5 then kp: =kp+1; end; pp: =0; for i: =1 to 5 do beginpp: =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 begins: =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') elsewriteln ('V masive ne 2 nuli'); writeln ('suma ot A do B=',s); end. {P.S. Я не проверял в Паскале если будут з нею проблемы то обращяйся}{P.P.S. Обрати внимание на разницу о и 0}