Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Настёнка
1 / 1 / 0
Регистрация: 03.04.2012
Сообщений: 31
1

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

16.04.2012, 15:05. Просмотров 1130. Ответов 2
Метки нет (Все метки)

Найти наибольший элемент главной диагонали матрицы X (10*10) и вывести на печать всю строку, в которой он находится
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 15:05
Ответы с готовыми решениями:

Матрицы. Найти наибольший элемент главной диагонали
Дан двумерный массив размером n*n, заполненный случайными числами. Найти...

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

Найти наибольший чётный положительный элемент выше главной диагонали матрицы
Здравствуйте. Нужна помощь по теме "двумерные массивы"! Задача. Дан двумерный...

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

Найти наибольший чётный положительный элемент выше главной диагонали матрицы
Здравствуйте.Преподаватель сказал, что в программе есть какие-то мелкие...

2
Ev[G]eN
iOS/Android Developer
Эксперт С++
5117 / 1555 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
16.04.2012, 15:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  n = 10;
var
  Matr: Array[1..n, 1..n] of Integer;
  i_max, j_max, i, j: Byte;
begin
  Randomize;
  i_max:=1; j_max:=1;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(50);
      if (i = j) and (Matr[i, j] > Matr[i_max, j_max]) then
      begin
        i_max:=i;
        j_max:=j;
      end;
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln('Максимальный: ', Matr[i_max, j_max]);
  write('Строка с максимальным(', i_max, '): ');
  for j:=1 to n do
    write(Matr[i_max, j]:4);
end.
1
Настёнка
1 / 1 / 0
Регистрация: 03.04.2012
Сообщений: 31
16.04.2012, 15:38  [ТС] 3
Спасибо вам большое :-)

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 15:38

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

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

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


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

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

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