Цитата:
Сообщение от Ольга111
Пожалуйста,помогите решить задачу на фри паскале,завтра нужно по ней отчитываться!!!
"Из вещественного вектора a(a1,a2,..,a3n) получить вектор b(b1,b2,..bn),очередная компонента которого равна среднему арифметическому очередной тройки компонента этого вектора!!!!!!!
Пожаааалуууййстаааааааа*((((((
|
Если я правильно понял условие задачи (а сформулировано, надо сказать, изрядно бестолково), то так:
Код:
CONST
N=10;
VAR
A,B:Array[1..N] of Real;
i:Byte;
BEGIN
Randomize;
For i:=1 to N do
Begin
A[i]:=Random*100;
Write(A[i]:8:3);
End;
Writeln;
Writeln;
B[1]:=A[1];
B[N]:=A[N];
Write(B[1]:8:3);
For i:=2 to N-1 do
begin
B[i]:=(A[i-1]+A[i]+A[i+1])/3;
Write(B[i]:8:3);
end;
Write(B[N]:8:3);
Readln;
END.