Составьте программу, нахождения суммы элементов данного массива а, состоящего из n элементов.
Основная часть цикла — добавление очередного элемента к накапливаемой сумме. Для нахождения суммы всех элементов достаточно повторить цикл, изменяя номер элемента массива от 1 до n с шагом 1.
Схема алгоритма
Начало
Цикл-для
i=1,n
Ввод
n
s:=0
1
Цикл-для
i=1,n
s:=s + ai
Ввод
ai
i
i
Вывод
n,a,s
1
Конец
Рис. 4.1 Схема алгоритма программы примера 1
Примечание. На данной схеме вывод исходных данных и результата записаны в одном блоке, так как алгоритм вывода элементов массива аналогичен циклу ввода.
Текст программы
program lr4_1_1;
{Сумма элементов массива.
Назаров Л.В.}
uses
crt;
const
maxn=100;{Максимальное количество элементов массива}
var
n,i:integer;
s:real;
a:array[1..maxn] of real;
begin
clrscr;
write('n= ');
readln(n);{Ввод реального количества элементов массива}
writeln('Введите элементы массива a ');
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('Исходный массив a, состоящий из ',n:4,' элементов');
for i:=1 to n do
write(a[i]:8:2);
writeln;
writeln('Сумма= ',s:8:2);
readkey;
end.
Задания
Составить схему и программу для решения задачи обработки массива. Программу проверить на ЭВМ. На экран вывести исходный массив и полученный результат обработки.
Вычислить
-A1/1! + A2/2! -...+(-1)NAN/N!
Помогите пожалуйста!