Ответы и объяснения

2013-10-17T08:01:07+00:00
Var a: array [0..9] of integer;
    i: integer;
begin
     for i := 0 to 9 do
          a[i] := random(50) + 1;
     for i := 0 to 9 do
         if (a[i] mod 2 = 0) then a[i] := sqr(a[i]);
end.