Обработка одномерных массивов(задача) Опции

[immortal7610]

Составьте программу, нахождения суммы элементов данного массива а, состоящего из 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!


Помогите пожалуйста!

Сообщение отредактировано: immortal7610 - 15.03.2012 1:38