1. Задать случайным образом 10 чисел…

1) Vara: array[1… 10] of integer; i: integer; beginfor i: =1 to 10 doread (a[i]); randomize; for i: =1 to 10 doa[i]: =random (136)+22; for i: =1 to 10 doif a[i]>100 then writeln (a[i]); end.2.vara,n: integer; beginreadln (a,n); a: =a^n; writeln (a); end; 6.varx: array[1… 5] of real; i: integer; beginfor i: =1 to 5 dobegin read (x[i]); if x[i]=9 then x[i]: =x[i]*3; if x[i]>9 then x[i]: =x[i]/10; writeln (x[i]); end; end.