Нужно найти «ошибки в коде» находите ошибки в левой колонке, выделяйте красным цветом и прописывайте эти строчки, в исправленном виде, в правой колонке.

// pascalabc.net 3.0, сборка 1128 begin   var a: =arrrandom(20,-10,19);   a.println(','); // 1   var b: =readarrinteger('введите 10 целых чисел',10); // 2   writeln('количество положительных элементов ',       a.where(x-> x> 0).count); // 3   for var i: =0 to 19 do       if a[i]< 0 then a[i]: =0;   writeln('массив а после замены отрицательных'); a.println(','); //4   writeln('сумма положительных элементов ',       a.where(x-> x> 0).sum) // 5 end. тестовое решение: 14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8 введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1 количество положительных элементов 13 массив а после замены отрицательных 14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0 сумма положительных элементов 112

№1var a: array [1..20] of integer;       i: integer; begin  randomize;     for i: =1 to 20 do  begin    a[i]: =random()+1)+-10;       write (a[i],' ');             end; end. №2var a: array [1..20] of integer;   i: integer;   begin  writeln('введите числа в интервале [-20; 29]');   for i: =1 to 10 do read(a[i]);   for i: =1 to 10 do  if (a[i]> -29) and (a[i]< 20) then write(a[i],' ');   end. №3var a: array [1..20] of integer;   i,sum: integer;   begin  randomize;   sum: =0;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   write (a[i],' ');   if a[i]> 0 then sum: =sum+1;   end;   writeln('количество положительных элементов массива = ', sum);   end. №4var a: array [1..20] of integer;   i: integer;   begin  randomize;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   if a[i]< 0 then a[i]: =0;   write (a[i],' ');   end;   end. №5var a: array [1..20] of integer;   i,sum: integer;   begin  randomize;   sum: =0;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   write (a[i],' ');   if a[i]> 0 then sum: =sum+a[i];   end;   writeln('сумма положительных элементов массива = ', sum);   end.