розріджені матриці

[dizzy69]

склсати програму що виконує обмін місцями стовпців з максимальним і мінімальноим елементом, для розріджених матриць.
Також програма має виводити логічну та програмну структуру матриці, надавати користовачу можливість поливитись та змінити деякий (i,j) елемент матриці

[dizzy69]

Сообщение от dizzy69

склсати програму що виконує обмін місцями стовпців з максимальним і мінімальноим елементом, для розріджених матриць.
Також програма має виводити логічну та програмну структуру матриці, надавати користовачу можливість поливитись та змінити деякий (i,j) елемент матриці

поможіть пліз

[osichev]

А по РУССКИ можно?

[dizzy69]

склсаты программу выполняющий обмен местами столбцов с максимальным и минимальноим элементом, для разреженных матриц.
Также программа должна выводить логическую и программную структуру матрицы, предоставлять пользователю возможность поливитись и изменить некоторое (i, j) элемент матрицы
вот пожалуста

[keef]

const m=9;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i,j,max,min : integer;
  s : array[0..m] of integer;
begin

min:=s[0];
max:=s[0];

for i:=0 to m do
 for j:=i+1 to m do begin
  if (s[i]<s[j]) and (s[i]<=min) then begin min:=s[i]; a:=i; end;
  if (s[i]>s[j]) and (s[i]>=max) then begin max:=s[i]; b:=i; end;
 end;

c:=s[a];
s[a]:=s[b];
s[b]:=c;

end;

Меняет местами максимальное и минимальное значения.