замена элемента массива

[shelest]

как в массиве каждый третий элемент заменить суммой двух предыдущих? (Pascal)

[Rusl92]

оО - не знание синтаксиса?
или в чем проблема?

[shelest]

да не знаю как это записать, я пока еще нуб в этом, сам алгоритм нужен

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
  a:array [1..10] of integer;
  i,sum:integer;
begin
sum:=0;
for I := 1 to 10  do
  begin
    a[i]:=i;
     if (i mod 3)=0 then
       a[i]:=a[i-1]+a[i-2];
     sum:=sum+a[i];
  end;
  writeln(sum);
  readln;

end.

НаваяЛ!