Помогите с информатикой, срочно! Массив из n натуральных чисел заполняется случайным...

Question

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

Comments

Многовато за раз.

---

еще бы ЯП научились бы писать

---

Не надо, так веселее.

Answer 1

 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.

Comments

Эта программа не работает. "Ожидался идентификатор"

---

может просто какието символы лишние появились

---

это точно рабочее так как сам проверял

---

write(a[i],' ');if (i mod 10 =0) then writeln;end;writeln;write('Среднее арифметическое элементов массива=',z/n); writeln;writeln('array b=');for i:=1 to n dobeginif (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 dobeginc[i]:=a[i]+b[i];write(c[i],' ');if (i mod 10 =0) then writeln;end;end.

---

Спасибо за помощь