Помогите с прогой! Pascal

[AS Roma]

Составить подпрограмму, которая определяет номера столбцов матрицы X(M,N), в которых есть нулевые элементы. С помощью подпрограммы определить номера столбцов с нулевыми элементами для матриц B(4,8 ) , C(6,9) и D(2,7).
Массивы B,C и D ввести с экрана дисплея.

[Лелик_1044]

for i:=0 to 4 do
fort j:=0 to 8 do
if massiv[i,j]=0 then ....

по-моему так...

[AS Roma]

Странно-странно

[AS Roma]

Ну кто-нибудь помогите в конце концов

[somewhere]

Код: Выделить всё

Type
   TByteArray = array[0..255] of byte;
   TMatrix = array[1..255][1..255] of Real;
....
....
Function GetNullColumnList(Rows, Cols:Byte; var El : TMatrix): TByteArray;
var x,y : Integer;
begin
Result[0] := 0;
For X:=1 to Cols do
    For Y := 1 to Rows do
        If El[Y][X] = 0 then 
              begin
              inc(Result[0]);
              Result[Result[0]] := X;
              end;
end;

В 0-ом элементе результата - число столбцов
В остальных - их номера

[AS Roma]

Cпасибо решил
Закройте тему