В Паскале двумерный массив

[Alexxxxxxx]

В Паскале двумерный массив

Дан массив А[6,6]. Построить массив B(6) по следующему правилу: B(j) присвоить если если в J-ом столбце А количество ненулевых элементов больше количества нулевых элементов, в противном случае B(j) присвоить 0. Плз помогите !!!

 

[Vladimir_S]

B(j) присвоить если если в J-ом столбце А количество ненулевых элементов больше количества нулевых элементов

ЧТО присвоить, черт побери, трам-там-там, будете или нет Вы нормальные формулировки наконец выкладывать?!!!! Сами себя наказываете!

 

[Alexxxxxxx]

ЧТО присвоить, черт побери, трам-там-там, будете или нет Вы нормальные формулировки наконец выкладывать?!!!! Сами себя наказываете!

Как в задании было написано , так и я написал

 

[Vladimir_S]

Как в задании было написано , так и я написал

Ну понятно - "А нам так дали!". Вообще-то подобные отговорки не принимаются, но тут дело почти очевидное - присвоить нужно, скорее всего, 1. Будем исходить из этого. Тогда так:

VAR
 A:Array[1..6,1..6] of ShortInt;
 B:Array[1..6] of Byte;
 i,j,n_0:Byte;
BEGIN
 Randomize;
 For i:=1 to 6 do
  begin
   For j:=1 to 6 do
    begin
     A[i,j]:=5-Random(10);
     Write(A[i,j]:4);
    end;
   writeln;
  end;
 Writeln;
 Writeln;
 For j:=1 to 6 do
  begin
   n_0:=0;
   for i:=1 to 6 do
    if A[i,j]=0 then Inc(n_0);
   If n_0<=2 then B[j]:=1 else B[j]:=0;
   Write(B[j]:4);
  end;
 Readln;
END.

P.S. А вообще, уважаемый - больше я с Вами, извините, работать не буду. Поскольку вижу своё назначение в том, чтобы помочь тем, у кого возникли сложности с решением задач и в ком есть реальное желание разобраться и чему-то научиться. А когда человек не дает себе труда просто внимательно прочитать задание и внятно его изложить, а тупо и бездумно вываливает это задание на форум, то в этом случае так называемую "помощь" считаю пустой тратой времени.
Всего хорошего.