Информатика, 10 класс. , , в вашей . 1. создайте массив из 100 элементов при генератора случайных чисел(randomize-random). выведите созданный массив на экран. возведите все нечетные элементы массива в квадрат и выведите изменённый массив так же на экран. 2. создайте массив из 50 элементов при формулы a [i] = i2(в квадрате). выведите созданный массив на экран. возведите все элементы массива, стоящие на четных местах, в куб и выведите изменённый массив так же на экран.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! №1 begin   var a: =arrrandom(100,-50,50); a.println;   a.transform(t-> t.isodd? t*t: t); a.println end. пример 46 39 19 26 29 21 12 41 -46 33 10 -38 -6 -46 -4 11 -36 41 15 8 46 31 23 47 -28 26 22 -34 -29 44 40 -18 -15 0 10 -46 25 -41 29 -41 1 -31 -35 -46 15 -39 6 41 -38 49 -16 7 -8 10 19 -36 -35 22 3 -48 49 -5 20 -40 43 -22 28 45 -5 -8 37 -46 -38 5 -44 26 16 19 -18 -39 -30 31 -46 -28 9 -18 40 25 31 -5 39 -48 7 26 -40 -44 0 -46 -39 -13 46 1521 361 26 841 441 12 1681 -46 1089 10 -38 -6 -46 -4 121 -36 1681 225 8 46 961 529 2209 -28 26 22 -34 841 44 40 -18 225 0 10 -46 625 1681 841 1681 1 961 1225 -46 225 1521 6 1681 -38 2401 -16 49 -8 10 361 -36 1225 22 9 -48 2401 25 20 -40 1849 -22 28 2025 25 -8 1369 -46 -38 25 -44 26 16 361 -18 1521 -30 961 -46 -28 81 -18 40 625 961 25 1521 -48 49 26 -40 -44 0 -46 1521 169 №2 begin   var a: =arrgen(50,i-> sqr(i+1)); a.println;   range(1,50,2).foreach(i-> begin a[i]*=a[i] end); a.println end. результат 1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 1681 1764 1849 1936 2025 2116 2209 2304 2401 2500 1 64 9 4096 25 46656 49 262144 81 1000000 121 2985984 169 7529536 225 16777216 289 34012224 361 64000000 441 113379904 529 191102976 625 308915776 729 481890304 841 729000000 961 1073741824 1089 1544804416 1225 2176782336 1369 3010936384 1521 4096000000 1681 5489031744 1849 7256313856 2025 9474296896 2209 12230590464 2401 15625000000

Var a,s: integer; begin a: =1; while a< =10 do       begin             s: =s+a;             a: =a+1;       end; writeln(s); end.