1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.

const n = 15;var  a: array[1..n] of integer;  i, x: integer;begin  for i := 1 to n do begin    a[i] := random(50);    write(a[i], ' ');    x := x + a[i];  end;  writeln;  writeln('a[1] + a[7] = ', a[1] + a[7]);  writeln('a[9] - a[3] = ', a[9] - a[3]);  writeln('Среднее арифметическое: ', (x / n):0:2);end.

var a: array[1..15] of integer; i,n: integer;x:real;m:int64;begin for i := 1 to 15 do readln(a[i]);m:=1; for i:=1 to 15 do begin x:=x+a[i];m:=m*a[i];end;writeln('a[1]+a[7]:=',a[1]+a[7]);writeln('a[9]-a[3]:=',a[9]-a[3]);writeln('srednee ar.:=',x/15);writeln('proizvedenie:=',m);end.