Question

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

Answer 1

{Допустим ,что масив будет вводитса с клавиатуры число символов 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}