Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.