Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.Button1Click(Sender: TObject);
- const
- //проставляешь константы
- massivex = ..;
- massivey = ..;
- var
- i:integer;
- j:integer;
- ii:integer;
- jj:integer;
- a:array[1..massivex] of array[1..massivey];
- resultA:array[1..(massivex-1)] of array[1..(massivey-1)];
- maxx:integer;
- maxy:integer;
- begin
- //Введем массив
- for i:=1 to massivex do
- for j:=1 to massivey do
- a[i][j]:= ... //Вводишь твоим способом
- //Найдем минимальный элемент
- maxx:=1; //пусть номер минимального элемента = (1,1)
- maxy:=1;
- for i:= 2 to massivex do // начнем искать со следующего
- for j:= 2 to massivey do
- if a[i][j] < a[maxx][maxy] then do
- begin
- maxx:=i;
- maxy:=j;
- end
- ii = 1;
- jj = 1;
- for i:= 1 to massivex do
- for j:= 1 to massivey do
- if i <> maxx and j <> maxy then do
- begin
- if jj > massivey do
- begin
- jj = 1;
- ii = ii + 1;
- end
- resultA[ii,jj] = a[i,j];
- end
- //Теперь в результА лежит то что тебе надо - делай что хошь
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement