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

Тема в разделе "Pascal and Delphi", создана пользователем -, 9 июн 2010.

  1. Гость

    дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали..
    Код (Delphi):
    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.
    написала программу, но она не правильно считает количество нулевых элементов стоящих выше главной диагонали;)
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Знак в другую сторону поставте.
     
  3. Гость

    А считаете количество эл-ов выше главной диагонали (про нулевые элементы не слова)

    Нужно добавить еще одно условие:
    Код (Delphi):
    if (i<j) and (a[i,j]=0) then
    k:=k+1;
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Забыл.
     
  5. Гость

    А я вспомнил ;)
     
  6. Гость

    не помогло(

    Добавлено: спасибо вам огромное!!! все работает! ;)
     
Загрузка...

Поделиться этой страницей