без использования массивов вычислите сумму и произведение десяти произвольных вещественных чисел

[Fedor1212]

без использования массивов вычислите сумму и произведение десяти произвольных вещественных чисел

[digitalis]

Язык? Кобол, Алгамс, SmallTalk ?
На пальцах это делается так.
1. В Prod записываем 1, в Sum 0.
2. Вводим число N
3. Prod := Prod * N, Sum := Sum + N
2,3 повторяем 10 раз.
Радуемся и идем за пивом
Щас придет модератор и пошлет тебя куда надо. И правильно сделает.

[Вадим Мошев]

Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[newerow1989]

var i,s,p:real;
    n:integer;
begin
   Randomize;
   n:=10;
   s:=0;
   p:=1;
   Repeat
      i:=Random(10)+Random;
      Writeln('#',n,' = ',i:5:8);
      s:=s+i;
      p:=p*i;
      n:=n-1;
   Until n=0;
   Writeln('----------------------------------');
   Writeln('s = ',s:5:8);
   Writeln('p = ',p:5:8);
   Readln;
end.