Дан массив из целых чисел x[1..5]. заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.

  var    x : array [1..5] of real;     i : integer;       begin  for i : = 1 to 5 do    if i mod 2 = 1 then      x[i] : = (i+1+i-1)/2;   for i : = 1 to 5 do    writeln (x[i]: 3: 2);   end.

Program al; var a,b: integer; s: real; begin writeln('a='); readln(a); writeln('b='); readln(b); s: =(a*b)/2; writeln('s=',s); readln; end.program al; var x,y,s,r1,r2,p: integer; c1,c2: real; begin writeln('x='); readln(x); writeln('y='); readln(y); s: =x+y; p: =x*y;   r1: =x-y;   r2: =y-x; c1: =x/y; c2: =y/x; writeln('s=',s,' p=',p,' r1=',r1,' r2=',r2,' c1=',c1,' c2=',c2); readln; end. program al; var s,n: integer; begin writeln('s'); readln(s); writeln('n'); readln(n); writeln('sredniaia zagrujennosti celoveka=',s/n,' ciasov'); readln; end.!

1) var a,b: integer; s: real;   begin  read(a,b);   writeln('площадь равна= ', (a*b)/2);   end.2)  var s,n: integer;   sr: real;   begin    read(s,n);     writeln('средняя загруженность на человека= ', s/n: 1: 2);     end.3)var x,y: integer; begin  read(x,y);   writeln('сумма=', x+y);   writeln('разность=', x-y);   writeln('произведение=', x*y);     writeln('частное=', x div  y);     end.