Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
1

минимальный элемент и поменять его с элементом A[N,M].

12.02.2010, 21:13. Просмотров 436. Ответов 3
Метки нет (Все метки)

Помогите доделать задачу,вот условие
Задан двухмерный массив целых чисел A размером N на M. Найти: минимальный элемент и поменять его с элементом A[N,M].
я уже нашел минимум, но вот возникла проблема не могу поменять его с элементом A[N,M]. Та и вообще само условие не пойму, спасибо зарание.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
Const n=3;
Var a:array[1..n,1..n] of integer;
i,j,min:integer;
begin  //ввод
for i:=1 to n do
for j:=1 to n do
a[i,j]:=strtoint(g1.cells[j-1,i-1]);
// ищем минимальный элемент
Min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
end;
//меняем элемент
for i:=1 to n do
for j:=1 to n do
 
g2.Cells[j-1,i-1]:=inttostr(a[i,j]);
 // выводим минимум
 edit1.Text:=inttostr(min);
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2010, 21:13
Ответы с готовыми решениями:

Найти минимальный элемент и поменять его местами с последним отрицательным элементом
Дана матрица К(2, 4). Найти минимальный элемент и поменять его местами с последним отрицательным...

Поменять местами минимальный элемент с первым положительным элементом
Через мемо вводится 12 чисел. Нужно из них определить минимальный элемент и поменять его местами с...

Найти максимальный элемент матрицы А и поменять его с элементом A[1, 1]
Задан двухмерный массив целых чисел A размером N на M. Найти: максимальный элемент и поменять его с...

В массиве из 20 элементов найти наибольший элемент и поменять его местами с последним элементом
В массиве из 20 элементов найти наибольший элемент и поменять его местами с последним элементом....

3
Добрый самаритянин
1105 / 620 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
12.02.2010, 21:24 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Const n=3;
Var a:array[1..n,1..n] of integer;
i,j,min,c,b,buf:integer;
begin //ввод
for i:=1 to n do
for j:=1 to n do
a[i,j]:=strtoint(g1.cells[j-1,i-1]);
// ищем минимальный элемент
Min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
c:=i;
b:=j;
end;
//меняем элемент
buf:=a[c,b];
a[c,b]:=a[n,n];
a[n,n]:=buf;
for i:=1 to n do
for j:=1 to n do
 
g2.Cells[j-1,i-1]:=inttostr(a[i,j]);
// выводим минимум
edit1.Text:=inttostr(min);
end;
 
end.
0
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
13.02.2010, 09:32  [ТС] 3
Не работает(
0
163 / 140 / 23
Регистрация: 28.12.2009
Сообщений: 367
13.02.2010, 12:58 4
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Задан двухмерный массив целых чисел A размером N на M
а у тебя n на n
Цитата Сообщение от Seo-optimist Посмотреть сообщение
Var a:array[1..n,1..n] of integer;
конкретнее что не работает?
у John_Pa9JIbHuK код правильный помоему
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2010, 12:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Массив: Найти максимальный элемент и поменять его местами с четвертым элементом массива.
Задан статический массив чисел. Программа должна: 1)вводить размерность и элементы исходного...

В массиве найти наименьший элемент и поменять его местами с последним элементом массива
В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом...

В массиве из 15 вещественных чисел найти наибольший элемент и поменять его местами с последним элементом
Помогите составить программу : в массиве из 15 вещественных чисел найти наибольший элемент и...

В массиве из 8 целых чисел определить максимальный элемент и поменять его с третьим элементом, равным 0
В массиве из 8 целых чисел определить максимальный элемент и поменять его с третьим элементом,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.