Заполнить массив случайными числами в интервале [-1, 1] и подсчитать количество нулевых элементов

Var   i,a: integer;   m: array[1..10] of integer; begin   randomize;   for i: =1 to 10 do   begin       m[i]: =random(2)-1;       if m[i]=0 then a: =a+1;   end;     writeln(a); end.

1. современный вариант // pascalabc.net 3.1, сборка 1214 от 09.04.2016 begin   var a: =arrrandom(10,1,50); a.println;   writeln('ср.арифм.нечетных=',a.where(x-> x.isodd).average) end. тестовое решение: 43 47 37 17 1 39 47 46 3 34 ср.арифм.нечетных=29.25 2. школьный вариант // pascalabc.net 3.1, сборка 1214 от 09.04.2016 const   n=10; var   a: array[1..n] of integer;   i,s,k: integer; begin   randomize;   k: =0; s: =0;   for i: =1 to n do begin       a[i]: =random(50)+1;       write(a[i],' ');       if odd(a[i]) then begin           s: =s+a[i]; inc(k)           end       end;   writeln;   writeln('ср.арифм.нечетных=',s/k) end. тестовое решение: 22 46 37 36 23 30 18 19 15 12 ср.арифм.нечетных=23.5

Var   a, b, c, d: real; begin   write('введите коэффициенты a,b,c ');   readln(a, b, c);   d : = sqr(b) - 4 * a * c;   if d = 0 then       writeln('корень один x = ', (-b / (2 * a))       else if d > 0 then           writeln('x1 = ' + sqrt(d)) / (2 * a), ' x2 = ' - sqrt(d)) / (2 * a))       else writeln('действительных корней нет'); end. тест №1 введите коэффициенты a,b,c 1 -5 6 x1 = 3 x2 = 2 тест №2 введите коэффициенты a,b,c 1 2 3 действительных корней нет тест №3 введите коэффициенты a,b,c 1 0 0 корень один x = 0