Массив из 10 элементов заполнен целыми случайными числами от -10 до

var
  i, n: integer;                            // объявляем переменные целочисленного типа.
  arr: array [1..10] of integer;     // объявляем массив.
  s : string;                               // объявляем переменную строкового типа.
begin
  for i := 1 to 10 do                   // начало цикла.
     begin
       arr[i] := random(-10, 10);          // наполняем элемент массива числом из спектра -10; 10.
       s := s + inttostr (arr[i])+ ;                 // записываем массив в одну строчку.
       if (arr[i] mod 2 = 0) then n := n + 1;   // считаем сумму положительных чисел.
     end;
 writeln (Начальный массив: , s);                                 // вывод строки на экран.
 writeln(Количество четных частей равно: , n);     // вывод строчки на экран.
end.