Начинающий
Регистрация: 18.06.2010 Сообщения: 8
Специальность:
Репутация: 0 [ ? ]
|
 Нужен алгоритм !
Помогите! Очень нужен алгоритм к такой программе : var a: array[1..5, 1..4] of integer; i, j, max, min, imax: integer; jmax, imin,jmin, tmp: integer;
begin for i := 1 to 5 do for j := 1 to 4 do read(a[i, j]);
for i := 1 to 5 do begin for j := 1 to 4 do write(a[i, j]:4, ' '); writeln; end;
max := a[1, 1]; for i := 1 to 5 do for j := 1 to 4 do begin if max < a[i, j] then begin max := a[i, j]; imax := i; jmax := j end; min := a[1, 1]; if min > a[i, j] then begin min := a[i, j]; imin := i; jmin := j end; end;
write('max = ', max); writeln(' a=[', imax, ',', jmax, ']'); write('min = ', min); writeln(' a=[', imin, ',', jmin, ']');
for j := 1 to 4 do begin tmp := a[imax, j]; a[imax, j] := a[imin, j]; a[imin, j] := tmp; end;
for i := 1 to 5 do begin for j := 1 to 4 do write(a[i, j]:4, ' '); writeln; end; readln; end.
|