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

Question

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

Answer 1

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

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</p>

sum1 := sum1 + r[i]

else

sum2 := sum2 + r[i];

end;

writeln(sum1 - sum2);

end.

Answer 2

begin

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

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

end.

---