Пример 2.1.
Вычислить сумму элементов числового
массива
A = (a1 ,
a2 , ... , aN
).
Тест
Данные
Результат
N=5
A=(3, 5, -2, 6, 3)
S=15.0
Демонстрация
Школьный АЯ
алг Сумма (арг цел N, арг вещ
таб A[1:N], рез вещ S)
дано N>0
начцел i
S:=0
нц для i от 1 до N
S := S + A[i]
кц
кон
Исполнение алгоритма
i
S
0
1
0 + a1 = 0+3 = 5
2
a1 + a2
= 3+5 = 8
3
a1+a2+a3
= 8-2 = 6
4
a1+a2+a3+a4
= 6+6 = 12
5
a1+a2+a3+a4+a5
= 12+3=15
Turbo Pascal
Program Summa;
Uses Crt;
Type Mas = Array [1..20] of Real;
Var A : Mas;
i, N : Integer;
S : Real;
BEGIN
ClrScr; {очистка экрана }
Write('Введите N = ');
ReadLn(N); {ввод значения N}
For i := 1 to N dо {цикл по элементам массива}
begin
Write('A [ ', i , ' ] = ');
ReadLn(A[i]) {ввод элементов массива}
end;
S := 0; {присваивание начального значения}
For i := 1 to N do S := S+A[i]; {суммирование}
WriteLn;
