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

Первый вариант программы:

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