Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Kseniya Grig
0 / 0 / 0
Регистрация: 25.02.2017
Сообщений: 9
1

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

24.03.2017, 22:57. Просмотров 1005. Ответов 6
Метки нет (Все метки)

Что не так, не выводит данные.
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
28
29
30
31
32
33
34
35
Program n1;
Var a:array[1..100,1..100]of integer;
    i,j,k,m,p,s,b,t,Max,N:integer;
Begin
writeln('введите размер матрицы: ');readln(m);
For i:=1 to m do begin
For j:=1 to m do begin
Write('a[',i,',',j,']');read(a[i,j]);
end;
end;
for i:=1 to n do begin
writeln('A[',i,j,']= ');
readln(A[i,j]);
s:=0;p:=0;
For i:=1 to m do begin
For j:=1 to m do begin
s:=s+a[i,j];
if(i<=j)then p:=p+a[i,j];
write(a[i,j]:5);
end;
writeln;
end;
k:=0;t:=0;
For i:=1 to m do begin
For j:=1 to m do begin
if(j=1)then b:=a[i,j];
if(b=a[i,j])then k:=k+1;
end;
if(k=m)then t:=t+1;
k:=0;
end;
writeln('сумма всех элементов массива: ',s);
writeln('сумма элементов выше побочной диагонали: ',p);
writeln('количество столбцов, где все элементы различны',t);  end;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2017, 22:57
Ответы с готовыми решениями:

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

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

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

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

Определить минимальный элемент из элементов ниже и выше побочной диагонали матрицы
Дан двумерный массив A. Определить минимальный элемент из элементов ниже и выше...

6
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
24.03.2017, 23:40 2
В 11 строке вы делаете цикл для i, а в 15, внутри этого же цикла делаете ещё один цикл с тем же i. Внутри for нельзя менять значение i, т.к. оно задаётся первым циклом. Задавайте другую переменную во втором (первом) цикле.

Добавлено через 1 минуту
В вашем алгоритме вы проверяете строки, а не столбцы

Добавлено через 1 минуту
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
28
29
30
31
32
var a:array [1..100,1..100] of integer;
    i,j,m,t:byte;
    sum1,sum2,b:integer;
    k:boolean;
begin
  writeln('M = '); readln(m);
  for i:=1 to m do
    for j:=1 to m do begin
      write('a[',i,',',j,'] = ');read(a[i,j]);
    end;
  writeln;
  sum1:=0; sum2:=0; k:=true; t:=0;
  for i:=1 to m do begin
    for j:=1 to m do begin
      sum1:=sum1+a[i,j];
      write(a[i,j]:3,' ');
    end;
  writeln;
  end;
  for i:=1 to m do
    for j:=1 to m-i do
      sum2:=sum2+a[i,j];
  for j:=1 to m do begin
    for i:=1 to m do
      if i=1 then b:=a[i,j] else
        if b=a[i,j] then k:=false;
    if k then inc(t);
  end;
  writeln('Сумма всех элементов: ',sum1);
  writeln('Сумма элементов выше побочной диагонали: ',sum2);
  writeln('Количество столбцов, где все элементы различны: ',t);
end.
1
Kseniya Grig
0 / 0 / 0
Регистрация: 25.02.2017
Сообщений: 9
25.03.2017, 01:04  [ТС] 3
Я не там посмотрела, мне нужна не сумма элементов выше побочной диагонали, а максимальный элемент выше побочной диагонали.
0
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
25.03.2017, 01:17 4
Лучший ответ Сообщение было отмечено Kseniya Grig как решение

Решение

Kseniya Grig, из правил форума
4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
Добавлено через 1 минуту
Цитата Сообщение от Kseniya Grig Посмотреть сообщение
максимальный элемент выше побочной диагонали.
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
28
29
30
31
32
33
var a:array [1..100,1..100] of integer;
    i,j,m,t:byte;
    sum1,max,b:integer;
    k:boolean;
begin
  writeln('M = '); readln(m);
  for i:=1 to m do
    for j:=1 to m do begin
      write('a[',i,',',j,'] = ');read(a[i,j]);
    end;
  writeln;
  sum1:=0; k:=true; t:=0;
  for i:=1 to m do begin
    for j:=1 to m do begin
      sum1:=sum1+a[i,j];
      write(a[i,j]:3,' ');
    end;
  writeln;
  end;
  max:=a[1,1];
  for i:=1 to m do
    for j:=1 to m-i do
      if a[i,j]>max then max:=a[i,j];
  for j:=1 to m do begin
    for i:=1 to m do
      if i=1 then b:=a[i,j] else
        if b=a[i,j] then k:=false;
    if k then inc(t);
  end;
  writeln('Сумма всех элементов: ',sum1);
  writeln('Максимальный элемент над побочной диагональю: ',max);
  writeln('Количество столбцов, где все элементы различны: ',t);
end.
1
Kseniya Grig
0 / 0 / 0
Регистрация: 25.02.2017
Сообщений: 9
25.03.2017, 03:34  [ТС] 5
А как написать, что элементы в строке разных знаков?
0
Puporev
Модератор
55420 / 42548 / 29400
Регистрация: 18.05.2008
Сообщений: 100,652
25.03.2017, 08:06 6
Kseniya Grig, До Вас плохо доходит?
Цитата Сообщение от Hitoku Посмотреть сообщение
Kseniya Grig, из правил форума
4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
0
Cyborg Drone
Модератор
5471 / 3287 / 2480
Регистрация: 17.08.2012
Сообщений: 10,549
25.03.2017, 15:48 7
Тема во фрилансе: http://www.cyberforum.ru/order-work-software/thread1945658.html.

Эта тема закрыта.
0
25.03.2017, 15:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2017, 15:48

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

Вывести на экран максимальный элемент побочной диагонали матрицы
№1 Заполнить двумерный массив 6,5 случайными числами. Найти произведений...

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


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

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

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