Составьте программ, которая заполняет массив а[1 ... 12] случайными целыми числами в диапазоне от 1 до 11, затем преобразовывает его, возводя в квадрат все элементы с четными числами

Var ar:array[1 ... 12] of integer;

i:integer;

begin;

randomize;

writeln ('Main array:') ;

for i:=1 to 12 do

begin;

ar[i]:=random (1,11) ;

writeln (ar[i]) ;

end;

writeln ('Changed array:') ;

for i:=1 to 12 do

begin;

if ar[i] mod 2=0 then ar[i]:=sqr (ar[i]) ;

writeln (ar[i]) ;

end;

end.

Uses crt;

Var mas:array[1 ... 12]of integer;

a:integer;

Begin

randomize;

for a:=1 to 12 do

begin

mas[a]:=random (11) + 1;

end;

For a:=1 to 12 do

begin

Write (mas[a]:1,' ') ;

end;

for a:=1 to 12 do

begin

if (mas[a] mod 2 = 0) then mas[a]:=sqr (mas[a]) ;

end;

Writeln () ;

For a:=1 to 12 do

begin

Write (mas[a]:1,' ') ;

end;

Writeln () ;

end.