Количество положительных элементов главной диагонали матрицы

Задача

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

Решение

 

Главная диагональ матрицы идет из верхнего левого угла в нижний правый. Первый и второй индекс ее элементов совпадают. Так первый элемент имеет индекс [1,1], второй - [2,2] и т. д.

Поэтому можно не перебирать во вложенном цикле элементы строк. Достаточно одного цикла для перехода по строкам матрицы.

Перед циклом переменной-счетчику положительных элементов присваивается 0 (на случай если таковых вообще не окажется). В цикле если очередной элемент главной диагонали матрицы окажется больше нуля, то следует увеличить этот счетчик на 1. После цикла его значение выводится на экран и показывает количество положительных элементов на главной диагонали.

Программа на языке Паскаль: 

 

const
    N = 10;
var
    arr: array[1..N,1..N] of integer;
    i,j: byte;
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to N do begin
            arr[i,j] := random(10) - 5;
            write(arr[i,j]:3);
        end;
        writeln;
    end;
    writeln;
    j := 0; // количество положительных элементов
    for i:=1 to N do
        if arr[i,i] > 0 then
           j := j + 1; 
    writeln (j);
end.

 

Пример выполнения кода:

 -4 -3 -5  0  4 -4 -3  4  3  2
 -5 -1 -3 -1  0  1  0  0  0 -1
  1  1 -5 -5  3 -3 -4 -1 -5 -2
 -3  3  1 -4  1 -4  0 -3 -4 -5
 -5 -1 -4 -3 -4  3 -1 -1 -2  3
 -2  2  4 -4  4  1 -1  0 -5 -5
 -2  3 -3  4 -5  4  2 -2  0  2
  1  0 -5 -5  4  3  1 -2 -1 -3
 -2 -4  2 -1 -5 -5 -4  2  2 -3
  4 -2  1  0 -3  2  2 -1 -3  0
 
3

 

Тема

Матрицы

Уровень

Простые задачи

Добавить комментарий