Блок-схема - в прилагаемом файле.
Тестовый пример:
А = 10
5, -2, 6, -4, 7
Среднее арифметическое = (5-2+6-4+7)/5 = 12/5 = 2,4
PS. Возможно зацикливание (это зависит от вводимых чисел).
В задаче не указан шаг изменения х , допустим он равен 1варX и Y:реальные;начатьх:=1;пока х<=10 делатьначатьy:=1/x-5;writeln(г:8:2);х:=х+1;конца;конец.
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>