Впрограмме pascalabc.net 1)создать при генератора случайных чисел одномерный массив размером [100], и вывести на печать отдельно элементы большие 5. 2)дан массив из 10 элементов, посчитать среднеарифметическое значение. 3) дан массив из 10 элементов, получить другой, состоящий из квадратов этих элементов.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   // 1   var a: =arrrandom(100,-20,20); a.println;   a.where(x-> x> 5).println;   // 2   var b: =arrrandom(10,-50,50); b.println;   writeln(b.average);   // 3   var c: =arrrandom(10,-30,30); c.println;   var d: =c.select(x-> x*x); d.println end. пример 3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12 17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12 -32 1 24 -36 -37 -14 45 -26 -11 20 -6.6 6 11 -25 19 1 19 3 0 -14 13 36 121 625 361 1 361 9 0 196 169

Const   n = 10; var   a: array[1..n] of integer;   i, j, t: integer;   flag: boolean;   begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(101)-50;       write(a[i]: 4)   end;   writeln;   i: =1;   repeat       flag: =true;       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t; flag: =false end;       inc(i);   until (i> n-1) or flag;   writeln('отсортированный по возрастанию массив');   for i : = 1 to n do write(a[i]: 4);   writeln end. тестовое решение: исходный массив   -32  -7    2    2  50 -33    1  31    4 -16 отсортированный по возрастанию массив   -33 -32 -16  -7    1    2    2    4  31  50