Помощь - Поиск - Пользователи - Календарь
Полная версия: Нужна помощь(решение задачи)среднее арифметическое...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
VDK23RUS
Из заданного вектора A(3N) получите B(N), очередная которого равна среднему арифметическому очередной тройки компонент вектора.

Вот что я знаю из задачи
for i := 1 to n do
b[i] := (a[i*3-2]+a[i*3-1]+a[i*3])/3;
Можете дописать всё остальное. Эта задача оказалась для мя сложной
VDK23RUS
Прошу вас помоЧь !mol1.gif
klem4
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.
VDK23RUS
Помогите

 ! 
Не надо флудить, это делу не поможет



Добавлено через 1 мин.
Спасибо klem4. ща буду проверять
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.