Примеры алгоритмов из повседневной жизни: перехода через проезжую часть дороги

1. подойти к пешеходному переходу 2.посмотреть влево 4. убедиться, что транспорт не движется или отсутствует 5. дойти до середины дороги, по пешеходному переходу 6. посмотреть вправо 7. убедиться, что транспорт не движется или отсутствует 8. перейти на другую сторону дороги

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;

(неясно-пиши в личку)