Работа на уроке 30 и 31 сентября

 Ввести 5 элементов массива, каждый увеличить на 2

var a:array[1..5] of integer;
 n,S,P,i:integer;
 begin
 writeln('введите элементы');
 for  i:= 1 to 5 do   read(a[i]);
 for  i:= 1 to 5 do   a[i]:=a[i]+2;
 for  i:=1 to 5 do    write(' ',a[i]);      

  end.

 Ввести 5 элементов массива, подсчитать их сумму

 var a: array [1..5] of integer;
i,n,S,P: integer;
begin
S:=0;
writeln('введите элементы');
for i:= 1 to 5 do
read(a[i]);
for i:= 1 to 5 do
  S:= S+a[i];
writeln('сумма =', S)  ;
 end.

Ввести 5 элементов массива, подсчитать их произведение

 var a: array [1..5] of integer;
i,n,S,P: integer;
begin
 P:=1;
writeln('введите элементы');
for i:= 1 to 5 do
read(a[i]);
for i:= 1 to 5 do
 P:= P*a[i];
writeln('произв =', P  )  ;
 end.