Помогите решить задачу на Паскале ABC. Заменить все положительные элементы на четных местах значением i2 + 1

Помогите решить задачу на Паскале ABC. Заменить все положительные элементы на четных местах значением i2 + 1.

  • Возможно так:
    var
    a: array[1..20] of Integer;
    i: Integer;
    chet: Boolean;

    begin
    chet := false;
    for i := 1 to 20 do
    begin
    a[ i ] := random(21)-10; {от -10 до 10}
    Write('a[',i,']=',a[ i ]);
    if chet and (a[ i ] > 0) then a[ i ] := a[ i ] * 2 + 1;
    chet := not chet;
    WriteLn(' a[',i,']=',a[ i ]);
    end;

    end.

  • боюсь, ничего хорошего не получится.
    дело в том, что, раз значения положительные - то это числа.
    а то, чем ты предлагаешь заменять (i2+1) в данном контексте больше всего на текстовую строку похоже.
  • var
    s,s2:string;
    t,m,t2:integer;
    begin
    write('введите строку: ');
    readln(s);
    s2:=s; t2:=2;
    for t:=2 to length(s)+1 do begin

    if t=2 then begin
    delete(s2,t,1);
    insert('i2+1',s2,t);
    end else begin
    t2:=t2+5;
    delete(s2,t2,1);
    insert('i2+1',s2,t2) end;

    t:=t+1; end;
    writeln('четные элементы заменены i2+1:',s2);
    readln;
    end.