В заданном массиве 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.