Question

40 баллов даю! Паскаль. Массив из 17 целых чисел. определите сумму массива начиная с 5 элемента и заканчивая 10.

Answer 1

const n = 17;

var

 mas:array [1..n] of integer;

 i, sum:integer;

begin

randomize;

for i := 1 to n do

begin

 mas[i]:= random(10);

 write(' ',mas[i], ' ');

end;

writeln();

sum := 0;

for i:= 5 to 10 do

 sum := sum + mas[i];

writeln('Сумма с 5 по 10 = ',sum);

end.