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.

Answer 2

Чтобы определить сумму массива, начиная с 5-го элемента и заканчивая 10-ым, нужно пройти по этому участку массива и сложить все его элементы.

В Паскале можно создать массив из 17 целых чисел и наполнить его значениями следующим образом:

var arr: array[1..17] of integer; i, sum: integer;

begin for i := 1 to 17 do begin arr[i] := i; // для примера заполняем массив числами от 1 до 17 end;

sum := 0; // переменная для хранения суммы // пройдем по участку массива, начиная с 5-го элемента и заканчивая 10-ым for i := 5 to 10 do begin sum := sum + arr[i]; // складываем элементы массива к переменной sum end;

writeln('Сумма массива от 5-го элемента до 10-го: ', sum); end.

На выходе будет выведена сумма массива, начиная с 5-го элемента и заканчивая 10-ым.