Синформатикой, ! массив из n натуральных чисел заполняется случайным образом. найдите среднее арифметическое элементов массива. замените каждый 3 элемент массива на 0 и сохраните в новом массиве. сложите поэлементно 2 массива и выведите на экран. примечание: кол-во элементов в массиве от 10 до 100. числа в массиве не больше 300

  var a,b,c: array[1..100] of integer;

i,n: integer;   z: real;

begin

      n: =random(10)+90;

      writeln('n=',n);

      writeln('array a=');

      for i: =1 to n do

      begin

          a[i]: =random(300);

          z: =z+a[i];

          write(a[i],' ');

          if (i mod 10 =0) then writeln;

      end;

      writeln;

      write('среднее арифметическое элементов массива=',z/n); writeln;

      writeln('array b=');

      for i: =1 to n do

      begin

          if (i mod 3 = 0) then b[i]: =0 else b[i]: =a[i];

          write(b[i],' ');

          if (i mod 10 =0) then writeln;

      end;   writeln; writeln('array a + array b=');

      for i: =1 to n do

      begin

          c[i]: =a[i]+b[i];

          write(c[i],' ');

          if (i mod 10 =0) then writeln;

      end;

end.

Файл Windows Video (для некоторых файлов в формате AVI могут потребоваться дополнительные кодеки)