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.