массив

[Настенька..Блонди]

ВЫРУЧАЙТЕ!!!!!
Задана целочисленная матрица A размером NxM. Получить массив B, присвоив его k-му элементу значение 0, если все элементы k-го столбца матрицы нулевые, и значение 1 в противном случае(k=1,2,…,M).

[Sazary]

цикл по j от 1 до M
 {
 s = 0
 цикл по i от 1 до N
  {
  если A[i,j] = 0 то s = s + 1
  }
 если s = N то B[j] = 0
 иначе B[j] = 1
 }

[Настенька..Блонди]

Это надо сделать в Delphi

[Sazary]

Я написал алгоритм. Переписать на Делфи, думаю, вы и сами сможете.