определить матрицу

[Gosp]

Здравствуйте, помогите решить заранее благодарен.
Определить в какой из матриц больше строк, содержащей нулевые элементы. Матрицы А(7*7) В (8*7).

[rrrFer]

язык какой и чем конкретно помочь?

[phomm]

const var сам опиши

for i := 1 to m1sizey do begin
tmp := 0;
for j := 1 to m1sizex do
tmp := tmp + m1[i,j];
if tmp=0 then 
first := first+1;
end;

аналогично для второй матрицы

if first > second
then writeln('в первой больше')
else if first < second
then writeln('во второй больше')
else writeln('одинаково');

это если сам доведешь до ума (ибо без проверки и обвязки)
если надо полную прогу - 50 рублей на телефон и всё будет красиво тебе отправлено, пиши по контактам в этом случае

Удачи )

[Gosp]

Язык Turbo Paskal

рeшитe пожaлуйстa

[Stilet]

А те идеи что вверху тебе ни о чем не говорят?

[Gosp]

в том то и дело что нет) пожалуйста полный вариант, буду признателен)

[phomm]

я же сказал, если не сам, то 50 рублей на телефон, в личку тебе номер напишу, а после оплаты напишу сюда код весь. Я думаю логично, чужая работа нынче оплачиваема.

УПД. эхма, у тебя ещё нету лички, совсем надавно зарегался. ну тогда вот номер 89068748676, 50 р на телефон, и, пожалуйста, можно в безкомиссионный автомат или там евросеть какую, мне особо не жалко , просто не хочу кормить и так толстые биллинг-компании, из принципа.

Можешь поторговаться, но я тебя спрошу кое-какие вопросы по паскалю, ответ на каждый - минус 10р, всего 5 вопросов, после неправильного ещё и объясню, хоть знания получишь

[Stilet]

пожалуйста полный вариант

Лады...

var 
 А:array of [1..7,1..7] of integer 
 В:array[1..8,1..7] of integer
 k,ac,bc,i,j:integer;
begin ac:=0;bc:=0;

 for i:=1 to 7 do begin
  k:=0;
  for j:=1 to 7 do begin 
   a[i,j]:=random(100);
   if a[i,j]=0 then inc(k);
  end;
  if k>0 then inc(ac);
 end;


 for i:=1 to 7 do begin
  k:=0;
  for j:=1 to 7 do begin 
   b[i,j]:=random(100);
   if b[i,j]=0 then inc(k);
  end;
  if k>0 then inc(bc);
 end;

if ac>bc then write('В первой') else write('Во второй');
end.

Твоя задача - определить мелкую ошибку в программе
Ну и прикрутить задержку в конце программы с помощью сверхсложной процедуры Readln;

[Gosp]

огромноe спaсибо!