Информатика, 9 класс

№5. program H5; var a:array[1..10] of integer; i,s,n,m:integer; begin for i:=1 to 10 do a[i]:=random(11); writeln('исходный массив: '); for i:=1 to 10 do write(a[i], ' '); writeln; writeln('введите промежуток индексов (от 1 до 10): '); read(n,m); s:=0; for i:=n to m do s:=s+a[i]; writeln('сумма элементов на заданном промежутке = ', s); end.