Найти количество положительных элементов, лежащих - вопрос №13484917 от vasinmihailov 23.03.2020 15:55

Question

Информатика: Найти количество положительных элементов, лежащих на главной диагонали квадратной матрицы. Матрица заполняется случайными числами от -50 до 50.

vasinmihailov · Answer

beginvar (n,c) := (ReadInteger( N: ),0);var m := MatrRandom(n,n,-50,50); m.Print; for var i := 0 to n-1 do if m[i,i] 0 then c+=1;c.Print end.Пример работы:...