Предмет: Информатика, автор: Ucufuciv

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

Ответы

Автор ответа: MagAragorn
0

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

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.

Автор ответа: iolandavalerypad353
0

begin

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

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

end.

Приложения:
Похожие вопросы
Предмет: Английский язык, автор: tamara5370
Предмет: Алгебра, автор: Аноним