{Допустим ,что масив будет вводитса с клавиатуры число символов 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}
Шум - сущ, шум, абстракт, нариц, неодуш, 2 склон, м.р., ед. ч., И. п., подлеж.
Дыхание - сущ,дыхание,абстракт,нариц,неодуш,2 склон,ср.р.,ед.ч.,И.п.,подлеж.
Небеса- сущ,дыхание,абстракт,нариц,неодуш,2 склон,ср.р.,мн.ч.,И.п.,подлеж.
Луч- сущ,луч,абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Осенью-сущ,осенью,абстракт,нариц,неодуш,3 склон,ж.р.,ед.ч.,Т.п., Дополнение.
Холод-сущ,холод,абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Любовь- сущ,любовь,абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж
Сон- сущ,сон, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Голод- сущ,голод,абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Кровь- сущ,кровь, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Сердце- сущ,сердце,абстракт,нариц,неодуш,2 склон,ср.р.,мн.ч.,И.п.,подлеж.
Коня- сущ,луч,абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,Или В.п или Р.п.,дополнение.
Копытом-сущ,копытом, абстракт,нариц,неодуш,2 склон,ср.р.,ед.ч.,Т.п.,дополнение.
Дол-сущ,дол, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Лёд-сущ,лёд, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
День-сущ,день, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Огонь-сущ,огонь, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Свет-сущ,свет, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Думы-сущ,думы,абстракт,нариц,неодуш,1 склон,ж.р.,ед.ч.,Р.п.,дополнение.
Душе-сущ,душе, абстракт,нариц,неодуш,1 склон,ж.р.,ед.ч.,Д.п.,дополнение.
Поэзия-сущ,поэзия,абстракт,нариц.,неодуш,1 склон,ж.р.,ед.ч.,И.п.,подлеж.
Волненьем-сущ,волненьем,абстракт,нариц,неодуш,2склон,ср.р.,ед.ч.,Т.п.,дополнение.
Рой- сущ,рой, абстракт,нариц,неодуш,2 склон,м.р.,ед.ч.,И.п.,подлеж.
Мечты-сущ,мечты,абстракт,нариц,неодуш,1 склон,ж.р.,ед.ч.,Р.п.,дополнение.
