3. дана последовательность из 100 чисел a1, …, an, где при i=1,2…, n значение ai= 3*i; a) найти сумму элементов последовательности; b) найти среднее по всем элементам последовательности.

Program z1;  const n = 100;  Var a: array [1..n] of integer; i,s:integer; sz:real;Begin  for i:=1 to n do  begin    a[i]:=3*i;    write (a[i],' ');  end;    s:=0;  for i:=1 to n do    s:=s+a[i];    sz:=s/n;  writeln;  writeln('A) ',s);  writeln('B) ',sz);
End.