Вывести сумму и произведение чисел из данного набора.

@Свечечка · Регистрация: 09.04.2010

Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.

Pascal

program NABOR;
var i,N,x:real; sum:char; proizv:char;
begin
sum:=0;
proizv:=1;
i:=1;
while i<=N do
begin
writeln('Vvedite',i);
readln(x);
sum:=sum+x;
proizv:=proizv*x;
end;

а дальше?

@Artishok · 08.05.2010, 17:21

Pascal

var
  i, n: integer;
  x, sum, pr: real;
 
begin
  readln(n);
  sum := 0;
  pr := 1;
  for i := 1 to n do 
  begin
    readln(x);
    sum := sum + x;
    pr := pr * x;
  end;
  writeln(sum, ' ', pr);
end.

@STGE · 08.05.2010, 17:22

Pascal

for i:=1 to n do
begin
read(a);
sum:=sum+a;
p:=p*a;
end;

@Свечечка · 08.05.2010, 17:27 **[ТС]**

я не буду казаться слишком наглой, если попрошу объяснить?

что и какая переменная обозначает ( ну сумма и произведение это ясно)?

@Artishok · 08.05.2010, 17:31

Не по теме:

теорию читать надо и тогда вопросов не возникнет

@Свечечка · 08.05.2010, 17:33 **[ТС]**

Все, поняла! спасибо за помощь
Р.S. если б все было понятно я б не обращалась к вам.... я только первые шаги делаю, на практике мне легче понять чем на теории.

@Свечечка 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 21
	08.05.2010, 17:27 [ТС]	4
	я не буду казаться слишком наглой, если попрошу объяснить? что и какая переменная обозначает ( ну сумма и произведение это ясно)? 0

@Artishok
	08.05.2010, 17:31 #5
	Не по теме: теорию читать надо и тогда вопросов не возникнет 0

@Свечечка 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 21
	08.05.2010, 17:33 [ТС]	6
	Все, поняла! спасибо за помощь Р.S. если б все было понятно я б не обращалась к вам.... я только первые шаги делаю, на практике мне легче понять чем на теории. 0

Опции темы