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

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

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.

блок-схему.пожалуйста

[Cannibal]

вот готовая блок-схема. к стандарту сам приведешь.

[pil69]

Сообщение от Cannibal

вот готовая блок-схема. к стандарту сам приведешь.

удобная программка, выложу своим студентам - пусть пользуются

[alexgk]

Ильдар, всё просто
1. главная диагональ в твоей матрице это ячейки с номерами (A[n,m], где n=m)
2. после создания матрице с помощью генератора случайных чисел в цикле, где перебираются строки с индекса 2, а столбцы с индексом 1 идет присвоение данным ячейкам значения 0
Прикинь на бумажке свою матрицу и поймешь.