Вычислите сумму пяти элементов массива

Question

Вычислите сумму пяти элементов массива

Answer 1

Первый вариант программы:
Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.

Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1


Второй вариант программы:
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
    Begin
    Read(B);
    S:=S+A[B];
    End;
WriteLn('Их сумма равна: ',S);
End.

Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23