Выработка каждого из 5 кранов порта за смену в течении суток предоставлена в виде матрицы (5х3). Выработку крана, простоявшего всю смену, принять равной 0. Определить для каждого крана кол-во смен, в течении которых кран простаивал — Basic(Бейсик) — Справочник разработчика. Приемная комиссия

FOR i=1 TO 5
  n=0 '
  FOR j=1 TO 3
    IF a(i,j)=0 THEN
      n=n+1
    END IF
  NEXT j
  PRINT "kran "; i; "stoyal"; n; "smen"
NEXT i