Дана последовательность элементов массива а 1, а 2, а 2… an. Составить программу,…

program lab; uses crt; var mas: array[1… 100] of integer; i, n: integer; begin randomize; writeln ('Введите размерность массива n '); readln (n); for i: =1 to n do begin mas[i]: =random (10); write (mas[i]: 5); end; writeln; writeln; for i: =1 to n do begin if mas[i] mod 2=0 then mas[i]: =sqr (mas[i]) else mas[i]: =2*mas[i]; write (mas[i]: 5); end; readln; End.