Условие задачи : Найти сумму элементов одномерного массива. Размер случайный. Элементы вводятся с клавиатуры.
Сложность : легкая .
Данная задача очень похожа на эту (ссылка), но там мы искали произведение. И еще одно отличие, здесь нам надо найти сумму элементов массива случайного размера.
Будем делать всё по аналогии с той задачей. Переменные будут те же самые.
Сначала создадим свой тип, но элементов сделаем по меньше, а то мало ли 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.