ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!(СВЯЗАНО С МАТРИЦЕЙ)

[Ильдар ХАЛИКОВ]

дана квадратная матрица порядка M.Обнулить матрицы, лежащие ниже главной диогонали.Условный оператор не использовать.Для отладки программы исходную матрицу сформировать с помощьюгенератора случайных чисел.СПАСИБО

[Карась]

Наработки есть?

Ну хотябы как заполнить матрицу?

[Ильдар ХАЛИКОВ]

нечего нет.помогите мне пожалуйста!мне завтра сдать надо!СПАСИБО!

[Карась]

Я прекрасно понимаю почему у вас досихпор ничево не сделанно, а сдавать уже завтра....

Как заполнять массив рандомно.
http://programmersforum.ru/showthread.php?t=16368

Чтото про диагонали.
http://programmersforum.ru/showthread.php?t=16532

Как говорится: напильник и рука, творят чудеса.

[Ильдар ХАЛИКОВ]

помоги уж мне!чкстно говоря я толком не понимаю!могу сделать простые,а так нет.....пожалуйста

[Карась]

Var x, y, n : Byte;
      M : array [1..10, 1..10] of Byte;

Begin
//Заполняем матрицу случайными числами
Randomize;
For x := 1 To 10 Do
  For y := 1 To 10 Do
    M[x,y] := Random(5) + 1;

// Обнуляем всё что ниже гл. диагонали
n := 2;
For y := 1 To 10 Do
  Begin
    For x := n To 10 Do
    M[x,y] := 0;
    n := n + 1;
  End;

// Выводим то что получилось на экран (хотя это, для экономии времени,
// можно засунуть в "обнулитель матрицы"
For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;

Readln;
End.

[Ильдар ХАЛИКОВ]

спасибо!если я не справлюсь,вы мне поможете?

[Карась]

Сообщение от Ильдар ХАЛИКОВ

спасибо!если я не справлюсь,вы мне поможете?

Не справитесь с копированием готового кода?

[Ильдар ХАЛИКОВ]

я ничего не понимаю...помогите мне,полностью решите уж...вам то,программистам, легко наверника....пожалуйста

а вот то что зеленым написано,туда надо добавлять,да?

[Карась]

я аж упал отжался от последнего поста.....

Я привёл ПОЛНЫЙ, РАБОЧИЙ код решения задачи.
То что выделенно зелёным, это комментарии. В коментариях я кратко описываю что делает ниже приведённый кусочек программы.