составить программу по такому алгоритму

[TRINITI23]

Початок

помогите составить программу по етому алгоритму, плиз
N=11
A(i)=-12, 1,4,-1,5,9,7,14,2,6,11
S= 46
D=27941760
К=607429,56

[Летучий_СкилетиК]

#include <iostream>
using namespace std;
int main()
{
	int n, d = 1, s = 0;
	cin>>n;
    int* a= new int [n];
	for (int i = 0; i < n; i++)
   		cin>>a[i];
	for (int i = 0; i < n; i++)
	{
		s += a[i];
		d *= a[i];
	}
	cout<<d / s;
	return 0;
}

[Stilet]

Ну и от меня койчто:

MODULE q;
IMPORT StdLog,In;
VAR  a:ARRAY(12) OF INTEGER;


PROCEDURE do*;
VAR n,s,d,i,e:INTEGER;k:REAL;
BEGIN
 In.Open;
 In.Int(n);
 StdLog.Clear;
 i:=0;
 WHILE In.Done DO  a[i]:=n;   INC(i);  In.Int(n); END;
 d:=1;s:=0; 
 
 FOR e:=0 TO i-1 DO  s:=s+a[e];d:=d*a[e]; END;
 StdLog.RealForm(d/s,5,0,0,' ');

END do;

END q.

[TRINITI23]

спасибо вам большое )

а может бить вот так????

CLS
INPUT "11"; n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
d = 1: s = 0
FOR i = 1 TO n
    s = s + a(i)
    d = d * a(i)
NEXT і
k = d / s
PRINT "k ="; k
END

[Летучий_СкилетиК]

Сообщение от TRINITI23

а может бить вот так????
CLS
INPUT "11"; n
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT
d = 1: s = 0
FOR i = 1 TO n
s = s + a(i)
d = d * a(i)
NEXT і
k = d / s
PRINT "k ="; k
END

может так, да вообще еще много как может быть, если б вы указывали еще и язык на котором языке программируете!!!

[TRINITI23]

Сообщение от Летучий_СкилетиК

может так, да вообще еще много как может быть, если б вы указывали еще и язык на котором языке программируете!!!

язык-QBasic

[Stilet]

TRINITI23

Ну а что... Похоже на правду.