• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Найти количество нулевых элементов

  • Автор темы Автор темы Guest
  • Дата начала Дата начала
G

Guest

дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали..
Код:
program z_14;
uses crt;
var a:array[1..50,1..50] of integer;
n,i,j,k:integer;
begin
clrscr;
write('vv kol-vo strok i stolbcov');
readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
if i<j then
k:=k+1;
end;
writeln ('k=',k);
readln;
end.
написала программу, но она не правильно считает количество нулевых элементов стоящих выше главной диагонали;)
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab