Ребятки, кто то может переделать с процедурами/функциями?
Дан массив A(N), N - четное. Сформировать массив B(N), элементами которого являются большие из двух рядом стоящих в массиве A чисел. Например, массив А состоит из элементов 1 3 5 -2 0 4, тогда массив В: 3 5 4.
CONST
N=5;
VAR
A:ARRAY[1..2*N] of REAL;
B:ARRAY[1..N] of REAL;
i:INTEGER;
BEGIN
For i:=1 to 2*N do
begin
Write('A[',i:2,']= ');
ReadLn(A[i]);
end;
WriteLn;
For i:=1 to N do
B[i]:=(A[2*i-1]+A[2*i])/2;
For i:=1 to 2*N do
Write(A[i]:6:2);
WriteLn;
Write(B[1]:9:2);
For i:=2 to N do
Write(B[i]:12:2);
WriteLn;
ReadLn;
END.