Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal]Обработка последовательности чисел.

Автор: CTAJIKEP 30.11.2009, 14:20

Доброго времени суток всем. Вобщем нужна помощь в решении данной ниже задачи, я с паскалем столкнулся совсем недавно и покачто очень мало чего понимаю, поэтому даже простые задачи для меня сложны....
Вот текст задачи :
Дана последовательность из n вещественных чисел.
Вычислить отношение суммы положительных элементов последовательности к их произведению. Если вычисление невозможно, выдать об этом сообщение с указанием причины.

Заранее благодарен тем, кто всётаки поможет...

Автор: ТоляМБА 30.11.2009, 18:47

Код

Program abc;
const
     n=7;
   a:array[1..7] of real = (1.4,6.2,8.1,4.9,7.2,5,11.4);
var
   i:integer;
   s,p:real;
begin
     s:=0;
     p:=1;
     for i:=1 to n do
     if a[i]>0 then
          begin
               s:=s+a[i];
               p:=p*a[i];
          end;
     if p=0 then writeln('can not divide by zero')
        else writeln('sum= ',s:4:4,'. mult= ',p:4:4,'. rel= ',s/p:4:4);
     readln;
end.

Добавил проверку на положительность числа. Сорри, сразу не заметил.