Дан массив array[1..100] с цикла присвоить, каждому элементу массива значение равное номер элемента умноженный на 3. например для массива а значение элемента а[1]=2, a[2]=6 a[3]=9 и т.д. в конце программа должна выводить на экран сумму всех элементов массива.

Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
end.

или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
   begin
         A[i]:=i*3;
        S:=S+A[i];
  end;
Writeln('сумма элементов массива= ',s);
end.