Question

Дан массив B из 15 элементов целого типа. Написать программу по нахождению суммы и произведения всех элементов массива. Паскаль. Заранее спасибо за помощь.

Answer 1

program sipcm;

uses

crt;

var

b: array [1..15] of integer;

var

i, s, pr: integer;

begin

s := 0;

pr := 1;

writeln('Заполните массив:');

for i := 1 to 15 do

begin

write('b[', i, '] = ');

readln(b[i]);

end;

for i := 1 to 15 do

begin

s := s + b[i];

pr := pr * b[i];

end;

writeln('Сумма: ', s, ' ; Произведение: ', pr);

readln;

end.