1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 9 июн 2010.

  1. Гость

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

    Dock1100 :-]

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

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

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

    Dock1100 :-]

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

    Репутация:
    0
    А я вспомнил ;)
     
  6. Гость

    Репутация:
    0
    не помогло(

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

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