[PASCAL] Operazioni su matrici

[mondobimbi]

prova questo spunto

program matrix;

const 
  n = 3;
type
  matrice = array[1 .. n, 1 .. n] of integer;
var
  m : matrice;
  i, j : integer;
  pi, pj : integer;

begin
  
  for i := 1 to n do
    for j := 1 to n do
    m [i, j] := i * j;    // tanto per mettere qualcosa
  for i := 1 to n do
    m[i,1] := 0;

// verifica che tutte le colonne contengano almeno uno zero
  pi := 1;
  pj := 0;
    
  for j := 1 to n do
  begin
    for i := 1 to n do
    pi := pi * m[i,j];
    pj := pj + pi;
  end;

  if (pj = 0) then
    writeln('ok')
  else
    writeln('no');
    
end. 

ciao
sergio