Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
кулема
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 33
1

Найти максимальный элемент матрицы в области ромба

24.04.2010, 19:47. Просмотров 928. Ответов 3
Метки нет (Все метки)

@@@ найти максимальный элемент матрицы среди(а[1,2];a[2,1];a[2,2];a[2,3];a[3,2])
@@@ огромное спасибо!!
@@@

Добавлено через 4 минуты
найти среди (a[1,2];a[2,2];a[3,2];a[2,3])
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2010, 19:47
Ответы с готовыми решениями:

Определить максимальный элемент матрицы в заштрихованной области
@@@@@ @@@@ @@@ @@ @ написать фукцию, которая...

Найти максимальный элемент матрицы С, каждый элемент которой вычисляется по заданной формуле
задание: Даны две матрицы A и B порядка 4. Найти максимальый элемент матрицы...

Найти максимальный элемент матрицы
найти максимальный элемент среди a; a;a;a; огромное спасибо!!!!!!!

Найти максимальный элемент матрицы
Сост 2 подпрограммы.ввода матрицы целых чисел размером N*M (n<=15, m<=20),...

Найти максимальный элемент матрицы
Задана целочисленная матрица A размером NxM. Найти максимальный элемент...

3
sanya0107
121 / 121 / 24
Регистрация: 14.02.2010
Сообщений: 289
24.04.2010, 20:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const mas:array [1..3,1..3] of integer = ((100,20,101),
                                          (80,88,40),
                                          (10000,6,103));
var i,j,max:integer;
begin
 max := mas[2,1];
 for j:=1 to 3 do begin
  for i:=1 to 3 do begin
   if   odd(i+j) or (i=2) and (j=2) then begin
      if mas[i,j] > max then max:=mas[i,j];
     end;
    end;
    end;
 writeln(max);
readln
end.
Извиняюсь что на паскале но под рукой только он!!
1
кулема
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 33
24.04.2010, 20:46  [ТС] 3
а если среди a[1,2];a[2,1];a[2,3];a[3,2]
0
sanya0107
121 / 121 / 24
Регистрация: 14.02.2010
Сообщений: 289
24.04.2010, 21:03 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const mas:array [1..3,1..3] of integer = ((100,20,101),
                                          (80,88,40),
                                          (10000,6,103));
var i,j,max:integer;
begin
 max := mas[2,1];
 for j:=1 to 3 do begin
  for i:=1 to 3 do begin
   if   odd(i+j)  then begin
      if mas[i,j] > max then max:=mas[i,j];
     end;
    end;
    end;
 writeln(max);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2010, 21:03

Найти максимальный по модулю элемент матрицы
условие: задана матрица А размером nxm. Найти максимальное по модулю элемент...

Найти максимальный элемент на диагоналях матрицы
найти максимальный элемнет на диагоналях матрицы delphi и переместить его в...

Найти максимальный элемент матрицы в указанной строке
procedure TForm1.Button1Click(Sender: TObject); var i,N:integer; ...


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

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

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