1). Дан массив из n элементов (n >= 4). Подсчитать среднюю арифметическую второго и...

Question

1). Дан массив из n элементов (n >= 4). Подсчитать среднюю арифметическую второго и предпоследнего элемента массива.

2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.

Answer 1

Var a:array[1..50000] of integer;
n,i,p:integer;
sr:real;
begin
readln(n);
p:=1;
for i:=1 to n do begin
read(a[i]);
p*=a[i];
end;
sr:=(a[2]+a[n-1])/2;
writeln('Среднее ар. - ',sr:2:1,' произведение - ',p);
end.