числовой массив 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] кц кон |
Исполнение алгоритма
|
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); |
Блок-схема |
Результаты работы Pascal-программы
|
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 |