Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму - Pascal
Формулировка задачи:
Пожалуйста, помогите.
Задача:"Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму."
Более ничего не дано.
Попытка друга на фото (не полная).
(Фотография текста удалена)Пока пытаюсь решить сам. Позже скину попытку.
Если есть мысли пишите.
x:=0; s:=0; for i:= 1 to n do begin a[i]:= random(201)-100; j:=x+a[i]; write ('y=',a[i],'':2); x:=a[i]; s:=s+j; writeln ('x=',j); end; writeln('последняя сумма=',s); end.
Решение задачи: «Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму»
textual
Листинг программы
const n=10; var x,y:array[1..n] of integer; i,s:integer; begin randomize; writeln('Массив Х'); for i:=1 to n do begin x[i]:=random(10); write(x[i]:3); end; writeln; s:=0; for i:=1 to n do begin s:=s+x[i]; y[i]:=s; write(y[i]:3);//это можно не выводить end; writeln; write('Последняя сумма=',y[n]); end.
Объяснение кода листинга программы
- Объявляется константа
n
со значением 10. - Объявляются переменные
x
иy
как массивы размерности от 1 доn
со значениями целочисленного типа. - Объявляются переменные
i
иs
типа integer. - Происходит инициализация генератора случайных чисел с помощью процедуры
randomize
. - Выводится строка
Массив Х
. - В цикле от 1 до
n
каждому элементу массиваx
присваивается случайное число от 0 до 9 с помощью функцииrandom(10)
. - Выводятся значения элементов массива
x
. - Переменной
s
присваивается значение 0. - В цикле от 1 до
n
переменнойs
прибавляется значение текущего элемента массиваx
. - Это суммарное значение записывается в соответствующий элемент массива
y
. - Выводятся значения элементов массива
y
. Закомментировано, что это можно не выводить. - Выводится строка с последним значением суммы, которая равна
y[n]
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д