Question

1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.

Answer 1

const n = 15;
var
  a: array[1..n] of integer;
  i, x: integer;
begin
  for i := 1 to n do begin
    a[i] := random(50);
    write(a[i], ' ');
    x := x + a[i];
  end;
  writeln;
  writeln('a[1] + a[7] = ', a[1] + a[7]);
  writeln('a[9] - a[3] = ', a[9] - a[3]);
  writeln('Среднее арифметическое: ', (x / n):0:2);
end.

Answer 2

var
a: array[1..15] of integer;
i,n: integer;x:real;m:int64;
begin
for i := 1 to 15 do
readln(a[i]);m:=1;
for i:=1 to 15 do begin
x:=x+a[i];m:=m*a[i];end;
writeln('a[1]+a[7]:=',a[1]+a[7]);
writeln('a[9]-a[3]:=',a[9]-a[3]);
writeln('srednee ar.:=',x/15);
writeln('proizvedenie:=',m);
end.

Answer 3

Хорошо, давайте посчитаем каждый из этих пунктов.

Пусть у нас есть массив a:

cssCopy code
a = [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15]

a) Найти сумму a[1] и a[7] элементов:

cssCopy code
сумма_1_и_7 = a[1] + a[7]

b) Найти разность a[9] и a[3] элементов:

cssCopy code
разность_9_и_3 = a[9] - a[3]

c) Найти среднее арифметическое всех элементов массива:

scssCopy code
среднее = (x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 + x10 + x11 + x12 + x13 + x14 + x15) / 15

d) Найти произведение всех элементов массива:

Copy code
произведение = x1 * x2 * x3 * x4 * x5 * x6 * x7 * x8 * x9 * x10 * x11 * x12 * x13 * x14 * x15

Где x1, x2, и так далее, обозначают значения элементов массива. Вам нужно подставить реальные значения, чтобы получить конечный результат.