Подсчитать суммы элементов массива с 1-го по 10-й - Pascal ABC
Формулировка задачи:
Само задание:
В произвольном одномерном массиве из 30 элементов(массив сформировать и вывести) подсчитать суммы элементов с 1-го по 10-й, с 11-го по 20-й, с 21-го по 30-й и вывести массив этих сумм.
Необходимо разбить программу на процедуры.
Решение задачи: «Подсчитать суммы элементов массива с 1-го по 10-й»
textual
Листинг программы
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. Далее выполняется ввод исходного массива, а затем подсчет суммы элементов массива и вывод результатов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д