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.
