Дан массив mxm. Найти сумму элементов тех столбцов, у которых ...

Сергей

Program PR1;uses crt;var mas:array[1..10,1..10] of integer; i,j,b:integer;Beginclrscr;randomize;for i:=1 to 10 dofor j:=1 to 10 do mas[i,j]:=random(10);for i:=1 to 10 dofor j:=1 to 10 do begin gotoxy(j,i); write(mas[i,j]); end;b:=0;for i:=1 to 10 dofor j:=1 to 10 do if (j=i) and (mas[i,j]=0) then b:=b+mas[i,j];writeln;writeln(b);end.