Question

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

Answer 1

Ответ:

• begin
• var (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.

Пример работы: