Матрица Опции

[Анна]

Дана матрица 4x6. Найти макс. элемент последних 3-х столбцов и заменить на минимальный элемент первой строки матрицы. Вывести на экран.

Макс и мин нашла. А как теперь заменить макс на мин и вывести результирующую матрицу?

uses crt;

var
A        : array [1..4, 1..6] of integer;
i,j, m, n      : byte;
max, min : integer;


begin
  clrscr;

  For i:=1 to 4 do
  for j:=1 to 6 do
  begin
    If j=1 then GoToXY (i,i);
    If j=2 then GoToXY (i+10,i);
    If j=3 then GoToXY (i+20,i);
    If j=4 then GoToXY (i+30,i);
    If j=5 then GoToXY (i+40,i);
    If j=6 then GoToXY (i+50,i);
    write ('A[',i,',',j,']=');
    read (A[i,j]);
  end;

  min:=a[1,1];
  For i:=1 to 1 do
  for j:=1 to 6 do
  begin
    If A[i,j] < min then min:=A[i,j];
  end;

  max:=0;
  For i:=1 to 4 do
  for j:=4 to 6 do
  begin
    If A[i,j] > max then begin max:=A[i,j]; A[i,j] := min; end;
  end;
   

Сообщение отредактировано: Анна - 3.05.2008 21:07

[volvo]

Да и вообще при таком выводе, если, к примеру все числа в первом ряду двузначные, а во втором однозначные, то первый ряд сдвинут получается.

Вообще-то надо задавать ширину поля, в котором выводятся числа, а не разделять их пробелами вручную:

for i := 1 to 4 do begin
  for j := 1 to 6 do write(A[i, j]:5);
  writeln;
end;