Предмет: Информатика,
автор: Ucufuciv
заполните массив r из 6 элементов числами,равными 1/2 порядкового номера. Определите разность между суммами его 1-й и 2-й половины
Ответы
Автор ответа:
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.
Автор ответа:
0
begin
var a := SeqGen(6, i -> (i + 1) / 2).ToArray; a.Println;
Print(a.Take(3).Sum - a.Skip(3).Sum)
end.
Приложения:

Похожие вопросы
Предмет: История,
автор: Ulyana1978
Предмет: Английский язык,
автор: tamara5370
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: маша1418
Предмет: География,
автор: Аноним