Вычислить сумму элементов массива - Pascal (80322)
Формулировка задачи:
Вычислить сумму элементов массива, заполненного случайными числами из интервала [-50; 50].
Желательно с подпрограммами!!
Решение задачи: «Вычислить сумму элементов массива»
textual
Листинг программы
Const n = 64; //Количество элементов массива
var a: array[1..n] of Integer;
i, s: Integer;
Begin
Randomize;
For i := 1 to n do
begin
a[i] := -50 + Random(101);
Write('a[', i, '] = ', a[i]:4);
s := s + a[i]
end;
WriteLn;
WriteLn('Сумма = ', s);
ReadLn
end.
Объяснение кода листинга программы
n= 64 // Количество элементов массиваa: array[1..n] of Integer;// Объявление массиваaиз 64 элементов типа Integeri, s: Integer;// Объявление переменныхiиsтипа IntegerRandomize;// Инициализация генератора случайных чиселFor i := 1 to n do// Цикл от 1 до 64a[i] := -50 + Random(101);// Присвоение элементу массива a[i] случайного значения в диапазоне от -50 до 50Write('a[', i, '] = ', a[i]:4);// Вывод индекса элемента массива и его значенияs := s + a[i]// Подсчет суммы значений элементов массиваWriteLn;// Перевод строкиWriteLn('Сумма = ', s);// Вывод суммы значений элементов массиваReadLn// Ожидание ввода пользователя Этот код создает массив из 64 элементов типа Integer и заполняет его случайными значениями в диапазоне от -50 до 50. Затем код выводит значения элементов массива и их сумму.