Задачи по Pascal. Сумма элементов массива.

Условие задачи : Найти сумму элементов одномерного массива. Размер случайный. Элементы вводятся с клавиатуры.

Сложность : легкая .

Данная задача очень похожа на эту (ссылка), но там мы искали произведение. И еще одно отличие, здесь нам надо найти сумму элементов массива случайного размера.

Будем делать всё по аналогии с той задачей. Переменные будут те же самые.
Сначала создадим свой тип, но элементов сделаем по меньше, а то мало ли 100 будет (

type
   massiv : array [1..15] of integer;

Дальше мы объявим переменные и в размер занесем случайное число :

type
    massiv = array [1..15] of integer;

var
    mass : massiv;
    n , i, summa : integer; // в той задаче была proiz а не summa
begin
    clrscr; // очищаем экран

    randomize ; // включаем генератор случайных чисел
    n := random(16); // будут значения от 1 до 15 , не 16-ти а 15!!!

    writeln('Размер вашего массива : ', n );
end.

И теперь нам нужно ввести каждый элемент и сосчитать сумму, до начала цикла нужно присвоить переменной summa ноль , для правильности работы :

summa := 0 ;

for i:=1 to n do
   begin
      write('Введите ', i , ' число : '); readln(mass[i]);
      summa := summa + mass[i];
   end;

Вот и всё, еще раз скажу аналогично задачи на произведение.

Весь код программы :

uses crt ;

type
    massiv = array [1..15] of integer;

var
    mass : massiv;
    n , i, summa : integer; // в той задаче была proiz а не summa
begin
    clrscr; // очищаем экран

    randomize ; // включаем генератор случайных чисел
    n := random(16); // будут значения от 1 до 15 , не 16-ти а 15!!!

    writeln('Размер вашего массива : ', n );
    summa := 0 ;

    for i:=1 to n do
       begin
          write('Введите ', i , ' число : '); readln(mass[i]);
          summa := summa + mass[i];
       end;

    writeln('Сумма массива равна : ', summa);
    readln; // чтобы программа не закрывалась
end.

Вот результат :