Паскаль. Построить новый массив, элементы которого образуются как суммы последовательных пар элементов исходного массива.

[igor617]

Всем добрый день.
Помогите написать задачу на паскале.
Разработать программу, в которой предусмотреть:
- ввод размерности N одномерного массива М,
- задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1];

Построить новый массив, элементы которого образуются как суммы последовательных пар элементов исходного массива.

[Serge_Bliznykov]

Сообщение от igor617

Построить новый массив, элементы которого образуются как суммы последовательных пар элементов исходного массива.

for i:=1 to N-1 do
  NewM[i]:=M[i]+M[i+1];

[igor617]

Сообщение от Serge_Bliznykov

for i:=1 to N-1 do
  NewM[i]:=M[i]+M[i+1];

спасибо,но нужна полностью вся программа

[Serge_Bliznykov]

Сообщение от igor617

спасибо,но нужна полностью вся программа

пожалуйста.
тогда это не ко мне.
либо в раздел фриланс за платной помощью, либо ждите "добренького дядечку".
Либо сами разберитесь и допишите, тут ничего сложного нет.

[newerow1989]

var m,p:array of integer;
    i,n:integer;
begin
   Write('N = ');Readln(n);
   SetLength(m,n);
   SetLength(p,n-1);
   For i:=0 to n-1 do
   begin
      Write('M[',i,'] = ');
      Readln(m[i]);
   end;
   Writeln;
   For i:=0 to n-2 do
   begin
      p[i]:=m[i]+m[i+1];
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Randomize;
   For i:=0 to n-1 do
   begin
      m[i]:=Random(21);
      Write(m[i]:2,'  ');
   end;
   Writeln;
   For i:=0 to n-2 do
   begin
      p[i]:=m[i]+m[i+1];
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Readln;
end.