Информатика. тема глобальные и локальные переменные. Задача:написать глобальный массив из...

Question

Информатика. тема глобальные и локальные переменные.
Задача:написать глобальный массив из 10 элементов. В паскале, через процедуру

Comments

Давать целую программу, а не одну строчку пожалуйста

---

1) На каком языке программу? 2) Нельзя дать программу на основе задания "Описать глобальный массив", Описание - это не программа, а один оператор.

---

Вы можете сформулировать задачу и написать в условии, что массив, в ней использованный, должен быть глобальным. Но для этого надо, чтобы программа, как минимум, содержала кроме основной части, еще процедуру или функцию.

---

В паскале

---

Тем более, в Паскале, у которого в стандарте языка глобальность определяется местоположением описания относительно тела программы. Описание в теле - локально, вне его - глобально. Вот и все.

Answer 1

Const
  n = 40;

var
  x: array[1..n] of integer;

procedure InitMas(p: integer);
var
  i: integer;
begin
  Writeln('Элементы массива');
  for i := 1 to p do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln
end;

function avg(m: integer): real;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to m do s := s + x[i];
  avg := s / m
end;

begin
  Randomize;
  InitMas(10);
  Writeln('Среднее арифметическое равно ', avg(10))
end.

Тестовое решение:
Элементы массива
  44 -40  -1   9  48 -12  48 -39 -13  32
Среднее арифметическое равно 7.6