Question

40 баллов за простую задачу, помогите пожалуйста, иформатика, Паскаль!! Дан целочисленный массив из 20 чисел. Найти сумму и произведение элементов массива.

Answer 1

Const n=15; 
var a:array[1..n] of integer;
s,i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(16);
 write(a[i]:3);
 end;
writeln;
s:=0; p:=1;
for i:=1 to n do
 begin
 s:=s+a[i]; p:=p*a[i];
 end;
writeln('s = ',s,'  p = ',p);
end.

Пример:
Массив A:
  1 14 12 14  6  4 10  3  3  1 15  4  4  5  6
s = 102  p = 36578304000

Answer 2

Для решения данной задачи воспользуемся языком программирования Паскаль.

Сначала, объявим и инициализируем массив из 20 целочисленных элементов:

var
  arr: array[1..20] of Integer;
  i: Integer;
  sum, product: Integer;
begin
  arr := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20);

Затем, произведем вычисление суммы и произведения элементов массива:

  sum := 0;
  product := 1;

for i := 1 to 20 do
  begin
    sum := sum + arr[i];
    product := product * arr[i];
  end;

Наконец, выведем результаты на экран:

  writeln('Сумма элементов массива: ', sum);
  writeln('Произведение элементов массива: ', product);
end.

Полный код программы:

program SumAndProduct;

var
  arr: array[1..20] of Integer;
  i: Integer;
  sum, product: Integer;
begin
  arr := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20);

sum := 0;
  product := 1;

for i := 1 to 20 do
  begin
    sum := sum + arr[i];
    product := product * arr[i];
  end;

writeln('Сумма элементов массива: ', sum);
  writeln('Произведение элементов массива: ', product);
end.

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