Задание:
Вычислить число положительных элементов квадратной матрицы, находящихся над главной диагональю
Решение:
program p3; var a: array[1… 100,1… 100] of integer; k,n,i,j: integer; begink=0for i: =1 to n dofor j: =1 to n doa[i,j]: =random (100) -50; for I: =1 to n dofor j: =1 to n doif (i>j) and (a[i,j]>0) then k: =k+1; for i: =1 to n dobeginfor j: =1 to n dowrite (a[i,j]); writeln; end; writeln (k) end.
Знаете другой ответ?