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

random(11)+1 может нарандомить 12, а это нам не нужно.

сколько пробовал , 12 он никогда не выдает

Хмм, а должен. Ладно, наверняка разные версии Паскаля.

var ar:array[1..12] of integer;i:integer;begin;randomize;writeln('Main array:');for i:=1 to 12 dobegin;ar[i]:=random(1,11);writeln(ar[i]);end;writeln('Changed array:');for i:=1 to 12 dobegin;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;Beginrandomize;for a:=1 to 12 dobeginmas[a]:=random(11)+1;end;For a:=1 to 12 dobeginWrite(mas[a]:1,'    ');end;for a:=1 to 12 dobeginif (mas[a] mod 2 =0) then mas[a]:=sqr(mas[a]);end;Writeln();For a:=1 to 12 dobeginWrite(mas[a]:1,'   ');end;Writeln();end.