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

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.

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.