Много баллов! Задано натуральные числа n и x. Вывести ** экран таблицу размером n ** n,...

Question

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

Comments

На каком языке писать? Си или паскаль?

---

Паскаль

---

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.

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.

Comments

А можно как то по проще? У нас нет такого "A[i,j]:10:2, array [1..n, 1..m] и главной диагонали массива"

---

var i,j, m,n,x:integer;
begin
readln(m,n,x);
for j:=1 to n do
begin
for i:=1 to m do
end;
if m=n then
begin
write ('x ');
writeln();
end;
else
begin
write('* ');
writeln();
end;
end.

---

Тут у меня ошибка. Не могу найти

---

A[i,j]:10:2 - вывод матрицы которую ты записываешь 10 - это целое число, 2 - это числа после запятой

---

array [1..n, 1..m] - записывается массив для матрицы. Проще даже не знаю как написать

---

Вот в этом и проблема