Задачи на массивы (в паскале) : 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}