задача на паскаль

[Афанасий[vedma]]

С клавиатуры вводим массив B(10) содержащей большое количество нулевых элементов. Заменить все группы подряд встречающихся нулей на один нуль

[WorldMaster]

И чего тут не получается??

[Афанасий[vedma]]

вот написал:

program z1;
var A: array[1..10] of integer;
begin

дальше не смог..

[WorldMaster]

А язык именно паскаль??
могу написать на си.
в принципе они похожи

[Афанасий[vedma]]

я вот первый курс и только начали на паскале...

[WorldMaster]

var index: integer;
      A: array[1..10] of integer;
begin
  for i:=0 to 10 do // тут считали символы
  begin
  read(A[i]); 
  end
end.

Вот так считать будет.
Мне сложно писать я уже паскаль лет 10 не пользовал.

[WorldMaster]

А дальше суть алгоритма:
Проходите по массиву..
если встретили ноль то запомнили индекс и пошли дальше пока не встретим первый отличный от нуля символ.
Затем удалим полученый кусок по индексам и поставим ноль вместо него.

только тут получается что удобнее было бы работать со строкой.
там есть функции замены подстроки.
а так придется вам сдвигать оставшиеся элементы

[Афанасий[vedma]]

Оу, то что вы направили мне сложно понять. Встретить ноль - это типа использовать while?

[WorldMaster]

ну да ...
создаете переменые
firstindex: integer
secondindex: integer

firstindex=-1;
secondindex=-1;
затем можно while или for пройти по всему массиву
if (A[i] = 0 and firstindex=-1) firstindex:=i;
if (A[i] <>0 and firstindex<>-1) secondindex=i;

вот и получили начальный и конечный индекс промежутка.
Далее его заменить и все

[Афанасий[vedma]]

А как будет код полностью?