Матрица 5х5

[Beka]

Напишите, пожалуйста, код для матрицы, чтобы она выводилась на экран в виде таблицы 5х5 и в её можно было заполнять вручную.

[Levsha100]

var
i,j:byte;
a:array[1..5,1..5]of integer;
begin
  for j:=1 to 5 do
    for i:=1 to 5 do
       ReadLn(a[i,j]);
//-----------------------
  for j:=1 to 5 do
  begin
    for i:=1 to 4 do
      write(a[i,j]);
    writeLn(a[5,j]);
  end;

[W0LF]

Вот поковыряйся тут:

Program NMatrix;
Var
  i,j: Byte;
  B: Array[1..100] Of array[1..100] of Integer;
  Minimum,n: Integer;
Begin
writeln('Vvedite razmer matricy: ');
ReadLn(n); //вводишь размер матрицы (квадратной), в твоем случаи 5
Randomize;
 For i:=i to n do
  for j:=1 to n do
   B[i,j]:=Random(30);

 Writeln('Matrix:');
  For i:=1 To n Do
    Begin
      For j:=1 To n Do
         Write(B[i,j]:n);
      WriteLn;
    End;
   Minimum:=B[1,1];
  For i:=1 To n Do
     For j:=1 To n Do
       If Minimum>B[i,j] Then Minimum:=B[i,j];
  Writeln('');
  Writeln('');
  WriteLn('Minimalniy element: ',minimum);
  Writeln('');
  Writeln('');
  For i:=1 To n Do
    Begin
      For j:=1 To n Do
         b[i,j]:=b[i,j]-Minimum;
    End;

	Writeln('New Matrix:');
  For i:=1 To n Do
    Begin
      For j:=1 To n Do
         Write(B[i,j]:n);
      WriteLn;
    End;
  ReadLn;
End.

Элементы генерируются рандомно, зделай что бы вводить числа в ручную (можно через ReadLn, но будет долго вводить 25 элементов) и выводиться вся матрица в окне...

Потом находиться минимальный елемент и отнимаеться от всех елементов и опять выводиться - это убери...

Вообщем, экспериментируй