Задать массив из 8 элементов целого типа. заполнить массив случайными значениями из интервала (-10; 10) и вывести массив. найти сумму и количество четных, а также произведение и количество нечетных значений элементов массива.

const z = 8; var  a: array[1..z] of integer;   i, s, s2, n, n2: integer; begin  s : = 0;   s2 : = 1;   for i : = 1 to z do begin    a[i] : = random(21) - 10;     write(a[i], ' ');     if(a[i] mod 2 = 0) then begin {четные}      inc(n);       s : = s + a[i];     end else begin      inc(n2);       s2 : = s2 * a[i];     end;   end;   writeln;   writeln('кол-во четных чисел: ', n, ', их сумма: ', s);   writeln('кол-во нечетных чисел: ', n2, ', их произведение: ', s2); end.

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   //var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(25,155,172).println(',');   write('рост учеников больше среднего: ');   var sr: =a.average;   a.where(x-> x> sr).orderby(x-> x).println(',') end. тестовое решение: 161,162,168,163,170,165,163,156,161,162,158,169,165,159,161,170,162,172,155,161,159,156,155,172,162 рост учеников больше среднего: 163,163,165,165,168,169,170,170,172,172

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,-10,10).println(',');   write('неотрицательные элементы: ');   a.where(x-> x> =0).println(',');   write('отрицательные элементы: ');   a.where(x-> x< 0).println(','); end. тестовое решение: количество элементов в массиве:   15 0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6 неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9 отрицательные элементы: -2,-9,-3,-5,-6