Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Pendor
0 / 0 / 3
Регистрация: 29.10.2012
Сообщений: 99
#1

Найти максимальный элемент, расположенный выше главной диагонали

09.03.2013, 21:38. Просмотров 995. Ответов 2
Метки нет (Все метки)

Пожалуйста, помогите решить задачу!!!
Дана матрица размером 5*5.
Найти максимальный элемент, расположенный выше главной диагонали.
Заранее, благодарю!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.03.2013, 21:38
Ответы с готовыми решениями:

Найти максимальный элемент матрицы, расположенный выше побочной диагонали
В матрице A , где 'n' <= 100 найти максимальный элемент, расположенный выше побочной диагонали и...

Найти максимальный элемент, расположенный выше побочной диагонали матрицы
В матрице (5,5) найти максимальный элемент, расположенный выше побочной диагонали, вывести его на...

Поменять местами максимальный элемент выше главной диагонали и минимальный элемент ниже главной диагонали
Определить максимальный элемент среди элементов квадратной матрицы размера 5x5, лежащих выше...

Найти максимальный элемент среди элементов матрицы, лежащих выше главной диагонали
Доброго времени суток, помогите написать парочку программ: 1)Задана матрица A(NxN). Определить,...

Найти максимальный элемент и его индексы среди значений лежащих на главной диагонали матрицы и выше нее
Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n<=12. Найти...

2
ntrx
122 / 122 / 82
Регистрация: 03.01.2013
Сообщений: 241
09.03.2013, 22:06 #2
Лучший ответ Сообщение было отмечено Pendor как решение

Решение

Pascal
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
program dfd;
uses crt;
const n = 5;
      m = 5;
var a : array[1..n, 1..m] of integer;
    i, j : byte;
    max : integer;
begin
     randomize();
     for i:=1 to n do begin
         for j:=1 to m do begin
             a[i,j] := random(50);
             write(a[i,j]:3,' ');
         end;
         writeln;
     end;
     writeln;
     for i:=1 to n do begin
         for j:=1 to m do
             if (i < j) then
                if (a[i,j] > max) then
                   max := a[i,j];
         writeln;
     end;
     writeln('Max element: ', max);
     readln;
end.
2
Puporev
Модератор
54339 / 41936 / 28973
Регистрация: 18.05.2008
Сообщений: 98,770
10.03.2013, 09:21 #3
Немного причешем
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const n = 5;
var a : array[1..n, 1..n] of integer;
    i, j : byte;
    max : integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j] := random(50);
    write(a[i,j]:3,' ');
    if(i=1)and(j=2)then max:=a[i,j]
    else if(j>i)and(a[i,j]>max) then max:=a[i,j]
   end;
  writeln
 end;
writeln('Максимальный элемент выше гл. диагонали=',max)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 09:21

Найти максимальный элемент, расположенный ниже побочной диагонали
Пожалуйста, помогите решить задачу!!! Дана матрица размером 5*5. Найти максимальный элемент,...

Если максимальный элемент квадратной матрицы находится выше главной диагонали, транспонировать ее
задача легкая,но я встретил трудности со знанием синтаксиса паскаля,а вот собственно и задача Если...

Найти максимальный элемент выше побочной диагонали матрицы
Что не так, не выводит данные. Program n1; Var a:arrayof integer; ...


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

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

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