Question

Много баллов! Задано натуральные числа n и x. Вывести на экран таблицу размером n на n, где на главной диагонали стоит число x, а на остальных местах *.
Пример: n=4, x=3. Должно выйти так :
3 * * *
* 3 * *
* * 3 *
* * * 3
Язык Pascal

Answer 1

Ввод матрицы в ручную
Const n = 5;
m = 5; {n-строка, m-столбец}
Var A: array [1..n, 1..m] of real;    
i, j: integer;
Begin  
for i := 1 to n do
for j := 1 to m do    
begin      
Write('A[', i, ', ', j, '] = ');      
ReadLn(A[i,j])    
end;  
WriteLn('Исходный массив:');  
for i := 1 to n do    
begin      
for j := 1 to m do
Write(A[i,j]:10:2);      
WriteLn     end;  
Writeln('Главная диагональ массива А:');  
for i :=1 to n do
Write(A[i, i]:10:2);  
WriteLn;  
ReadLn;
END.