Найти количество элементов, расположенных выше главной диагонали матрицы - Turbo Pascal
Формулировка задачи:
Нужна помощь
Задан двухмерный массив целых чисел А размером М на N. Найти количество элементов, расположенных выше главной диагонали.
Решение задачи: «Найти количество элементов, расположенных выше главной диагонали матрицы»
textual
Листинг программы
program mas;
uses crt;
var A: array [1..100,1..100] of integer;
i,j,k,n,m:integer;
begin
clrscr;
write('vvedite n = ');
readln(n);
write('vvedite m = ');
readln(m);
writeln('Введите элементы массива: ');
for i := 1 to n do
for j := 1 to m do
begin
Write('mas[', i, ']');
Write('[', j, ']');
readln(A[i,j]);
end;
writeln('matrica');
for i:=1 to n do begin
for j:=1 to m do
write(' ',A[i,j],' ');
writeln;
end;
for i := 1 to n do
begin
for j := 1 to m do
begin
if(i<j) then
k:=k+1;
end;
end;
writeln('количество элементов выше главной диагонали = ',k);
readln;
end.
Объяснение кода листинга программы
В данном коде на языке Turbo Pascal создается программа mas. Программа запрашивает у пользователя два числа: n и m, которые представляют собой размеры матрицы. Затем программа запрашивает у пользователя элементы матрицы и сохраняет их в массив A. После этого программа выводит на экран саму матрицу и подсчитывает количество элементов, расположенных выше главной диагонали. Результат подсчета выводится на экран.