Заполнить массив 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.

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

  1. Объявляется константа n со значением 10.
  2. Объявляются переменные x и y как массивы размерности от 1 до n со значениями целочисленного типа.
  3. Объявляются переменные i и s типа integer.
  4. Происходит инициализация генератора случайных чисел с помощью процедуры randomize.
  5. Выводится строка Массив Х.
  6. В цикле от 1 до n каждому элементу массива x присваивается случайное число от 0 до 9 с помощью функции random(10).
  7. Выводятся значения элементов массива x.
  8. Переменной s присваивается значение 0.
  9. В цикле от 1 до n переменной s прибавляется значение текущего элемента массива x.
  10. Это суммарное значение записывается в соответствующий элемент массива y.
  11. Выводятся значения элементов массива y. Закомментировано, что это можно не выводить.
  12. Выводится строка с последним значением суммы, которая равна y[n].

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы