Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические

@DamiRik · Регистрация: 11.03.2014

Помогите решить задачу,пожл!
Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве A чисел. Например, массив A состоит из элементов 1; 3; 5; -2; 0; 4; 0; 3. Элементами массива B будут 2; 1,5; 2; 1,5.

@volvo · 28.03.2014, 03:16

Pascal

{$mode objfpc}
const
  n = 8;
var
  a : array[1 .. n] of real =
  (1, 3, 5, -2, 0, 4, 0, 3);
  b : array[1 .. n div 2] of real;
 
  i : integer;
 
begin
  for i := 1 to n div 2 do
  begin
    b[i] := (a[2*pred(i)+1] + a[2*i]) / 2;
    write(b[i]:7:2);
  end;
  writeln;
end.

@DamiRik 0 / 0 / 0 Регистрация: 11.03.2014 Сообщений: 20
		1
	Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические 27.03.2014, 21:36. Просмотров 3267. Ответов 1 Метки нет (Все метки) Помогите решить задачу,пожл! Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве A чисел. Например, массив A состоит из элементов 1; 3; 5; -2; 0; 4; 0; 3. Элементами массива B будут 2; 1,5; 2; 1,5. 0

Опции темы

Дан массив A(N) (N - четное). Сформировать массив B(M), элементами которого являются средние арифметические

Решение