Подсчитать суммы элементов массива с 1-го по 10-й - Pascal ABC

Формулировка задачи:

Само задание: В произвольном одномерном массиве из 30 элементов(массив сформировать и вывести) подсчитать суммы элементов с 1-го по 10-й, с 11-го по 20-й, с 21-го по 30-й и вывести массив этих сумм. Необходимо разбить программу на процедуры.

Var
  x: Array[1..30] of Integer;
  s: Array[1..3] of Integer;
  i: Byte;
  sum: Integer;
BEGIN
Randomize;
Writeln('Произвольный массив:');
For i:=1 to 30 do
begin
  x[i]:=Random(50);
  Write(x[i],' ');
end;
For i:=1 to 10 do
sum:=sum+x[i];
Writeln;
Writeln('Сумма элементов с 1 по 10: ',sum);
s[1]:=sum;
sum:=0;
For i:=11 to 20 do
sum:=sum+x[i];
Writeln('Сумма элементов с 11 по 20: ',sum);
s[2]:=sum;
sum:=0;
For i:=21 to 30 do
sum:=sum+x[i];
Writeln('Сумма элементов с 21 по 30: ',sum);
s[3]:=sum;
Writeln('Массив сумм:');
For i:=1 to 3 do
Write(s[i],' ');
Readln
END.

Решение задачи: «Подсчитать суммы элементов массива с 1-го по 10-й»

Листинг программы

const n=30;
type mas=array[1..n] of integer;
procedure vvod(var a:mas);
var i:byte;
begin
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
end;
procedure summa(a:mas;var b:mas);
var i,j:byte;
begin
for i:=1 to 3 do
 begin
  b[i]:=0;
  for j:=(i-1)*(n div 3)+1 to i*(n div 3) do
  b[i]:=b[i]+a[j];
 end;
writeln('Массив сумм третей');
for i:=1 to 3 do
write(b[i]:4);
end;
var a,b:mas;
    i:byte;
begin
randomize;
vvod(a);
summa(a,b);
end.

Объяснение кода листинга программы

В данном коде объявлены три переменные: n, mas и bmas. Переменная n инициализируется значением 30, тип mas определяется как массив целых чисел от 1 до n, а переменная bmas инициализируется типом mas. Далее объявлен процедурный код. В первой процедуре vvod(var a:mas) происходит ввод исходного массива. Для каждого элемента массива (от 1 до n) выполняется следующая последовательность действий:

переменной a присваивается значение текущего элемента массива;
значение текущего элемента массива выводится на экран. Во второй процедуре summa(a:mas;var b:mas) происходит подсчет суммы элементов массива. Для каждого элемента массива (от 1 до 3) выполняется следующая последовательность действий:
переменной b присваивается значение 0;
для каждого элемента массива (от (i-1)(n div 3)+1 до i(n div 3)) выполняется следующая последовательность действий:
- переменной b присваивается значение b + a[j];
- значение b выводится на экран. В конце кода объявлены две переменные a и b, инициализированы типом mas. Далее выполняется ввод исходного массива, а затем подсчет суммы элементов массива и вывод результатов.