Из заданного вектора A(3N) получите B(N), очередная которого равна среднему арифметическому очередной тройки компонент вектора.
Вот что я знаю из задачи
for i := 1 to n do
b[i] := (a[i*3-2]+a[i*3-1]+a[i*3])/3;
Можете дописать всё остальное. Эта задача оказалась для мя сложной
Прошу вас помоЧь
const
n = 3;
var
A: Array [1..3*n] of Single = (1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0);
B: Array [1..n] of Single;
i: Integer;
begin
i := 3;
while (i <= 3 * n) do begin
b[i div 3] := (a[i] + a[i - 1] + a[i - 2]) / 3;
inc(i, 3);
end;
for i := 1 to n do writeln(b[i]:5:2);
end.
Помогите
! | Не надо флудить, это делу не поможет |