Обчислення суми та добутку елементів масиву

Дано одномірний масив a(a[1], a[2], … a[n]). Обчислити суму та добуток його елементів.

program SumDobMas;

uses

Crt;

var

a:array[1..20] of real;

s,d:real;

i,n:integer;

begin

ClrScr;

Writeln('Введіть кількість елементів масиву',

' n<=20');

Readln(n);

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Readln;

s:=0; d:=1;

For i:=1 to n do

Begin

s:=s+a[i];

d:=d*a[i];

End;

Writeln('Сума елементів масиву s=',s:10:3);

Writeln('Добуток елементів масиву ',

'd=',d:10:3);

Readln;

end.