Вывод на экран квадратной матрицы

@Szamarmadar · Регистрация: 29.01.2010

Author24 — интернет-сервис помощи студентам

Добрый вечер.
Подскажите пожалуйста,как сделать чтобы квадратная матрица 4*4 вводилась как 4 строки и четыре столбца.У меня просто все элементы через пробел вводятся

Pascal

Program prog3;
 
uses crt;
 
Var
 i, min, tmp: integer;
A: array [1..4, 1..4] of integer;
 
begin
 min := A[1,1];
 
 for i := 2 to 4 do
  begin
   if (A[i,1] > min) then
    min := A[i,1];
  end;
 
 tmp := A[3,2];
 A[3,2] := min;
 min := tmp;
end.

@rangerx · 22.12.2010, 01:43

Pascal

for i:= 1 to 4 do begin
  for j:= 1 to 4 do
    Write( A[i,j]:3 );
  WriteLn;
end;

	22.12.2010, 01:43