Помогите с задачами на фри Паскале
 

Пожалуйста,помогите решить задачу на фри паскале,завтра нужно по ней отчитываться!!!
"Из вещественного вектора a(a1,a2,..,a3n) получить вектор b(b1,b2,..bn),очередная компонента которого равна среднему арифметическому очередной тройки компонента этого вектора!!!!!!!
Пожаааалуууййстаааааааа*((((((

Если я правильно понял условие задачи (а сформулировано, надо сказать, изрядно бестолково), то так:

Вопросик по задачке
 

Program laba7;
const n=7;
var a:array[1..3*n] of real;
b:array[1..n] of real;
i,j:integer;
begin
for i:=1 to 3*n do
write ('a[',i,']=');
readln (a[i]);
end;
begin
for i:=1 to n do

Владимир,большое спасибо за решение.Только мы решаем немного иначе,посмотрите пожалуйста,исходя из моего условия,что можно сделать даальше??я запуталась окончательно,и вообще ход правильный?

Ага, понятно - я несколько не так воспринял условие. Вечером поправлю: сейчас поеду с работы домой. Черт, на "3n" не обратил внимание. Потерпите пару часов.
P.S. И зачем было новую тему открывать? Мы же Вашу же задачку обсуждаем. Это нельзя к чужим темам цепляться, а свою продолжать - пожалуйста! :)

хорошо,в следующий раз так и сделаю,спасибо,подожду))

Вот, получите:

Спасибо вам большое Владимир,всё теперь разобралась=)Всё работает=))Я думаю если индексы оставить в виде :a[j+1]+a[j+2]......т.е. без i-1....получится тоже самое,мы же берём одну строчку 1,2,3,вторую потом к j прибавляем 3,что бы вторая вышла 4,5,6.,и т. д.?Вообщем j:=j+3=)))
прям спасли!!=))

Владимир, решила попробовать похожую задачу здесь нашла где то,вот что получилось,но у меня не выводит ответ ,выходят нули. Условие:дан целочисленный вектор a(а1,а2,...,an) построить вектор b(b1,b2,...,bn)приняв в качестве первых его компонент все отрицательные компоненты вектора a(с сохранением порядка их следования)в качестве остальных положительные компоненты вектора a,также с сохранением порядка их следования.
program lab_7;
uses crt;
const n=5;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
clrscr;
j:=1;
for i:=1 to n do
begin
if a[i]<0 then begin
a[i]:=b[j];
j:=j+1;
end;
end;
for i:=1 to n do
begin
if a[i]>=0 then begin
a[i]:=b[j];
j:=j+1;
end;

end;
for i:=1 to n do
writeln (b[i]);
readln;
end.

... что вполне естественно.
Потому что аж в двух местах Вы пишете - и что мы имеем? Вы сперва вводите значения элементов массива А, а затем им же присваиваете значения элементов массива В, в котором по умолчанию стоят нули! Вот нули и получаете. Короче говоря, в двух местах надо вместо
a[i]:=b[j];
записать
b[j]:=a[i];
На всякий случай: в операторе присваивания ":=" слева стоит то, чему присваивается, а справа то, что присваивается. Например
q:=5; - правильно, а
5:=q; - неправильно.

Здравствуйте,помогите пож.Даны 100 целых чисел ,распечатать их в обратном порядке по 6 чисел в строке))