Помогите пожалуйста! Написать программу решения следующей задачи: Для каждой из матриц A(5,5) иB(8,8) вычислить сумму и количест
Помогите пожалуйста! Написать программу решения следующей задачи: Для каждой из матриц A(5,5) иB(8,8) вычислить сумму и количество отрицательных элементов, расположенных на главной диагонали и выше её. Использовать подпрограмму. На паскале.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
function KS(a:array[,] of integer):(integer,integer); begin (var k,var s):=(0,0); for var i:=0 to a.RowCount-1 do for var j:=i to a.ColCount-1 do if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]); Result:=(k,s) end;
begin var a:=MatrRandom(5,5,-50,50); a.Println(4); var r:=KS(a); Writeln('k=',r[0],', Sum=',r[1]); var b:=MatrRandom(8,8,-80,45); b.Println(4); r:=KS(b); Writeln('k=',r[0],', Sum=',r[1]); end.
1. Человек использует знаки в различных отраслях, где необходимо мало писать. 2.О смысле знаков-пиктограммы можно догадаться по форме и т.д.(явное соглашение),знаки - символы не позволяют догадаться о их смысле по форме(неявное соглашение). 3. Языковые системы. 4. Сейчас допишу, надеюсь чуть чуть помогла.