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

Alexxxxxxx · 23.10.2011, 20:06

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

Vladimir_S · 23.10.2011, 20:26

Цитата:

Сообщение от Alexxxxxxx

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

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

Alexxxxxxx · 23.10.2011, 20:39

Цитата:

Сообщение от Vladimir_S

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

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

Vladimir_S · 23.10.2011, 21:06

Цитата:

Сообщение от Alexxxxxxx

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

Ну понятно - "А нам так дали!". Вообще-то подобные отговорки не принимаются, но тут дело почти очевидное - присвоить нужно, скорее всего, 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. А вообще, уважаемый - больше я с Вами, извините, работать не буду. Поскольку вижу своё назначение в том, чтобы помочь тем, у кого возникли сложности с решением задач и в ком есть реальное желание разобраться и чему-то научиться. А когда человек не дает себе труда просто внимательно прочитать задание и внятно его изложить, а тупо и бездумно вываливает это задание на форум, то в этом случае так называемую "помощь" считаю пустой тратой времени.
Всего хорошего.

23.10.2011, 20:06	#1 (permalink)
Alexxxxxxx Новичок Регистрация: 22.10.2011 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	В Паскале двумерный массив Дан массив А[6,6]. Построить массив B(6) по следующему правилу: B(j) присвоить если если в J-ом столбце А количество ненулевых элементов больше количества нулевых элементов, в противном случае B(j) присвоить 0. Плз помогите !!!

23.10.2011, 20:06
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме встречается много похожего, вот то, что схоже с вашим запросом Двумерный массив Двумерный массив. Задача

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070