В заданном массиве a от n целых элементов, все нечетные по значению элементы удвоить, а чётные увеличить на 1.

Все четные элементы по номеру возвести в квадрат

var n, i:longint;

var a:array[1 ... 10000000] of longint;

begin

writeln ('Введите количество элементов массива') ;

readln (n) ;

writeln ('Введите все элементы массива через пробел') ;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do if (a[i] mod 2 = 0) then a[i]:=a[i]+1 else if a[i] mod 2 0 then a[i]:=a[i]*2;

for i:=1 to n do if i mod 2 = 0 then a[i]:=sqr (a[i]) ;

for i:=1 to n do write (a[i],' ') ;

end.