Дан массив 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.

Var ar1: array[1..10] of integer; ar2: array[1..10] of integer; i: integer; begin; randomize; writeln('+ array'); for i: =1 to 10 do begin; ar1[i]: =random(1,10); write(ar1[i]: 4); end; writeln; writeln('- array'); for i: =1 to 10 do begin; ar2[i]: =random(-10,-1); write(ar2[i]: 4); end; writeln; writeln('+'); for i: =1 to 10 do write(ar1[i]+ar2[i]: 4); writeln; writeln('-'); for i: =1 to 10 do write(ar1[i]-ar2[i]: 4); writeln; writeln('*'); for i: =1 to 10 do write(ar1[i]*ar2[i]: 4); end.

Е: .avi          |.xis          |.bmp                                                            |.jpeg                                                                                          |.jpe          |          |          |          |.txt                                          |.doc          |          |          |.mp3          |.pptплжалуйста друзья   10пкт веть е: видеозапись.aviе: график.xisе: изображенияаквариум.bmpе: изображенияфотобия.jpegе: изображенияфотокатунь.jpegе: текстыбуква.txtе: текстыонегин.docе: мелодия.mp3е: презинтация.ppt