Нужна помощь с Матрицай М на Н, сумма элементов Опции

[ovosch]

Доброй ночи.
Не получается решить задачу . Помогите пожалуйсто

Дана вещественная матрица размерности n×m. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

program ovosch;
var A:array [1..100,1..100] of integer;

i,j,m,n:integer;
sum: real;
begin

readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
      
      end;
      if j=0 then ??????
      end.

Это всё ,что я смог сделать. Вроде всё ясно, представляю, но записать ума не хватает

М

Теги! Правила Форума, п.5, и правила раздела Задачи, п.2 Lapp

[Lapp]

Дана вещественная матрица размерности nЧm. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

program ovosch;
var A:array [1..100,1..100] of integer;

i,j,m,n:integer;
sum: real;
begin

readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
      
      end;
      if j=0 then ??????
      end.

Это всё ,что я смог сделать. Вроде всё ясно, представляю, но записать ума не хватает

Как-то вот так попробуй:

program ovosch;
var 
  A:array [1..100,1..100] of integer;
  i,j,m,n: integer;
  s,t: extended;
  z: boolean;

begin
  readln(n);
  readln(m);
  for i:=1 to n do begin
    for j:=1 to m do begin 
      a[i,j]:=random(51);
      write(a[i,j]:4);
    end;
    writeln
  end;
  s:= 0;
  for j:=1 to m do begin
    t:= 0;
    z:= false;
    for i:=1 to n do begin 
      z:= z or (a[i,j]=0);
      t:= t+a[i,j]
    end;
    if z then s:= s+t
  end;
  ........

Заметь, что во втором двойном цикле внешний проход по столбцам.

Исправил ошибки

Сообщение отредактировано: Lapp - 24.05.2011 2:17

[ovosch]

Как-то вот так попробуй:

program ovosch;
var 
  A:array [1..100,1..100] of integer;
  i,j,m,n: integer;
  s,t: extended;

begin
  readln(n);
  readln(m);
  for i:=1 to n do begin
    for j:=1 to m do begin 
      a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
    end
  end;
  s:= 0;
  for j:=1 to m do begin
    t:= 0;
    z:= false;
    for i:=1 to n do begin 
      z:= z or (a[i,j]=0);
      t:= t+a[i,j]
    end;
    if z then s:= s+t
  end;
  ........

Заметь, что во втором двойном цикле внешний проход по столбцам.

спасибо, сейчас разберусь!