Заполните массив r из 6 элементов числами, равными 1/2 порядкового номера. Определите разность между суммами его 1-й и 2-й половины

Вы не указали языка программирования, будем считать что это паскаль

var r:array[1 ... 6] of real;

var i:integer;

var sum1, sum2: real;

begin

for i : = 1 to 6 do

begin

r[i] = i * 0.5;

if (i < = 3) then

sum1 : = sum1 + r[i]

else

sum2 : = sum2 + r[i];

end;

writeln (sum1 - sum2) ;

end.

begin

var a : = SeqGen (6, i - > (i + 1) / 2). ToArray; a. Println;

Print (a. Take (3). Sum - a. Skip (3). Sum)

end.