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

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.

Const       handsfree = false;       nmax = 31;       random_min = -20;       random_max = 30; var       a: array[1..nmax] of real;       i, n, j: integer;       k: integer; begin       {ввод массива}       if handsfree then               n : = random(nmax - 5) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(random_max - random_min) + random_min;                       write(a[i], ' ');               end               else                       readln(a[i]);       end;       writeln();             {подсчет элементов}       k : = 0;       for i : = 1 to n do               if a[i] = 15 then                       k : = k + 1;       writeln('quantity = ', k); end.

Uses graphabc; beginsetpenwidth(3); setwindowsize(600,700); ellipse(120,350,280,480); circle(200,300,60); circle(200,210,40); line(170,90,230,90); line(160,180,240,180); line(170,90,160,180); line(230,90,240,180); floodfill(200,173,clblack); floodfill(200,123,clblack);   setbrushcolor(clblack); circle(190,200,5); circle(210,200,5); line(200,210,220,220); line(200,220,220,220); line(200,210,200,220); floodfill(204,214,clblack); setpenwidth(5); arc(200,230,10,180,0); line(70,320,170,250); line(230,250,330,300); line(300,450,350,200); line(350,200,320,140); line(350,200,340,140); line(350,200,360,140); line(350,200,380,140); line(350,200,400,140); end.