вторник, 1 декабря 2009 г.

сумма и произведение элементов в массиве

Дано N вещественных чисел. a1,a2....an. Вывести сумму и произведение чисел из данного набора. Использовать структуру цикл с постусловием.

program one;

const
N = 5;

var
A: array [1..N] of integer;
i: integer;
sum: integer;
mul: integer;

begin
writeln('инициализация массива случайными числами');
for i:=1 to N do begin
A[i]:=random(9)+1; {числа от 1 до 9, т.е. неравные 0, иначе произведение будет равно 0}
writeln(A[i]);
end;

{начальное значение суммы}
sum:=0;
{начальное значение произведения}
mul:=1;
{начальный номер элемента}
i:=1;

repeat
sum:=sum+A[i];
mul:=mul*A[i];
i:=i+1;
until i > N;

writeln('sum=', sum);
writeln('mul=', mul);

end.

Комментариев нет:

Отправить комментарий