Школьный АЯ
алг Сумма (арг цел N, арг вещ
таб A[1:N], рез вещ S)
даноN>0
нач цел i
S:=0
нц для i от 1 до N
S := S + A[i]
кц
кон
Исполнение алгоритма
i
S
0 + a1 = 0+3 = 5
a1 + a2 = 3+5 = 8
a1+a2+a3 = 8-2 = 6
a1+a2+a3+a4 = 6+6 = 12
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;
WriteLn('Сумма равна ', S : 5 : 1);
ReadLn
END.
QBasic
CLS
INPUT "N = " ; N : DIM A(N)
FOR i = 1 TO N
PRINT "A(" ; i ; ")=" ;
INPUT A(i)
NEXT i
S = 0
FOR i = 1 TO N
S = S + A(i)
NEXT i
PRINT "Сумма = " ; S
END
Пример 2.2. Найти наибольший элемент числового массива A = (a1, a2 , ..., aN) и его номер.
