1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7]...

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.