7 Задание помогите пожалуйста
на коде Паскаль АБС

Ответ:

var t: double;

var i: integer;

var mas: array [1..10] of integer;

begin

// Заполним массив и выводим его на экран

writeln('Исходный массив');

randomize;

For i:= 1 to 10 do

begin

mas[i]:=random(201)-100;

write(mas[i],' ');

end;

// Считаем сумму всех элементов

t := 0;

For i:= 1 to 10 do

begin

t := t + mas[i];

end;

//Среднее арифметическое:

t := t/10;

// Результат

writeln('Ответ: ',((t+98)/(t-98))*t);

end.

Отчёт в ворде надо сделать сначала титулку, потом условие, потом код

Она так мне сказала

Работа над отчетом - отдельное задание, за которое вряд ли кто возьмется, поскольку титульный лист для каждого учебного заведения обычно свой. Насчет объяснения: могу объяснить только момент с автозаполнением массива случайными числами - вводить с клавиатуры 10 чисел просто неудобно.